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

В примере AVI файл проигрывается снова и снова - используем событие MediaPlayer'а Notify

Пример:

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