TMediaPlayer Loop

[Demyxa]

Ich hab das Forum durchstöbert, konnte aber leide keine Lösung finden.
Mein MediaPlayer läuft 5 Minuten, soll aber in einer Endlosschleife laufen.

Code:

procedure TForm1.Label18Click(Sender: TObject);
var
BATK : Real;
begin
  if MediaPlayer1.Position=MediaPlayer1.EndPos then   //abfrage ob der Player beim Ende ist
  begin
  MediaPlayer1.FileName:=OpenDialog1.FileName;
  MediaPlayer1.Open;
  MediaPlayer1.Play;
  end;

ist das was ich im Moment nutze, jedoch ist es weder eine Endlosschleife sondern einfach ein "zweiter Playbutton"
und dazu auch noch nicht mal funktional.

Ich hatte eine permanente Abfrage Schleife im Kopf, jedoch hab ich schlechte Erfahrungen
mit diesen und schrecke vor der Idee eher zurück.

Und das Ding 20-Mal in Audacity zu loopen wäre einfach nur meh.