MediaPlayerのループ

procedure TForm1.Notify(Sender: TObject);
begin
 with Sender as TMediaPlayer do begin
   if Mode <> mpPlaying then begin
         //Notifyイベントが１度発生すると
         //NotifyはFalseになる
         //ここで有効にしないと
         //Loopできない
         Notify := True;

         //もちろん再生しましょう！
         Play;
      end;
      Notify := True;
end;
Notify := True;
end;