AVI файл проигрывается снова и снова

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

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