Повторение воспроизведения музыкального файла

[JonMagon]

Доброго времени суток. Помогите пожалуйста сделать бесконечное повторение воспроизведения файла через TMediaPlayer. Была идея сделать тайм по TTimer, но прога получилась слишком грамозкой, вообще надо типо "окончилось воспроизведение - началось заново". Если поможете - буду очень благодарен. Зарание спасибо за ответ.

[Mad_Cat]

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
 with MediaPlayer1 do
   if NotifyValue = nvSuccessful then
   begin
     Notify := True;
     Play;
   end;
end;

[JonMagon]

Спасибо большое, а тут доступна кнопка для репутации?

[vs259]

Смотрите здесь