>>79
そのままズバリ書くと>>77 と >>84 を組み合わせてこんな感じになります．
procedure TForm1.Button1Click(Sender: TObject);
begin
// ※実行は上から順に行われる．

// 演奏するファイルの指定（実行ファイルと同じディレクトリの'music.mid'）
// 　※プロパティの設定は代入式で行う．
// 　※『実行時と同じディレクトリ』は ExtractFilePath(Application.ExeName) ．
MediaPlayer1.FileName := ExtractFilePath(Application.ExeName) + 'music.mid';

// 演奏実行
MediaPlayer1.Play;

end;