The following example demonstrates looping an AVI file by taking advantage of the MediaPlayers Notify event to play the AVI file again... and again... and again!

Example:
procedure TForm .MediaPlayer Notify(Sender: TObject);
begin
  with MediaPlayer  do
    if NotifyValue = nvSuccessful then begin
      Notify := True;
      Play;
    end;
end;