mediaplayer如何实现循环播放?

mediaplayer如何实现循环播放?我用下面的代码不行啊
procedure TForm1.OnNotify(Sender: TObject);
begin
  if MediaPlayer1.Mode = mpStopped then
    MediaPlayer1.Play;
    MediaPlayer1.Notify := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
      MediaPlayer1.Close;
      MediaPlayer1.FileName := 'hit.mid';
      MediaPlayer1.Open;
      MediaPlayer1.Play;
      MediaPlayer1.Notify := True;
end;
该怎么改？