如何循环播放MediaPlayer的文件？

Question

procedure MediaPlayerNotify(Sender: TObject);
begin
  Application.ProcessMessages;
  try
    MediaPlayer.Play;
  except
  end;
end;

Answer 1

procedure MediaPlayerNotify(Sender: TObject);
begin  
  if Mediaplayer1.Mode=mpStopped
  then Mediaplayer1.Play;
end; 

Answer 2

 procedure MediaPlayerNotify(Sender: TObject);
begin  
  if (MediaPlayer1.Mode<>mpPlaying) then
   MediaPlayer1.Play;
end; 

Answer 3

procedure MediaPlayerNotify(Sender: TObject);
begin  
  if Mediaplayer1.Mode=mpStopped
  then 
    begin
      try
      Mediaplayer1.Open;
      Mediaplayer1.Play;
      except
      showmessage('哎，遗憾！文件路径丢失，重新打开吧^－^');
      end;
    end;
end;