Как заставить TMediaPlayer проигрывать одно и тоже бесконечно (AVI например)

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

Другое по теме:

• Как получить картинку с видео источника
• Как проиграть AVI на полный экран
• Как узнать число кадров AVI файла, и выяснить как долго будет проигрываться этот файл