Reproducir continuamente mediaplayer

[[Gunman]]

En el evento OnNotify del TMediaPlayer puedes poner:

Código Delphi [-]
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if MediaPlayer1.NotifyValue = nvSuccessful then
  MediaPlayer1.Play
  else
  ShowMessage('Problema!');
end;