[Страдалецъ]

Ну ладно, вот вариант более дружественный:

Код:

procedure TForm41.Button1Click(Sender: TObject);
begin
 MediaPlayer1.FileName := 'F:\Media\Audio\OST-Kill_Bill_Volume_One-2003-XMR\20_flip_sting-xmr.mp3';
 MediaPlayer1.Open;
 Timer1.Interval := 10;
 Timer1.Enabled := True;
end;

procedure TForm41.Timer1Timer(Sender: TObject);
begin
 if MediaPlayer1.Mode = mpStopped
 then MediaPlayer1.Play;
end;