; end;

然后如下让它循环
procedure TForm2.MediaPlayer1Notify(Sender: TObject);
begin
  if MCIStop=1 then Exit;
  if MediaPlayer1.Mode=mpStopped then
  begin
    MediaPlayer1.Rewind;
    MediaPlayer1.Play;
  end;
  MediaPlayer1.Notify:=true;
end;