Как в плеере файл проигрывать по кругу?

MediaPlayer1.FileName := 'd:\01.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;

var
Files: TStringList;
Number: Integer;
MRepeat: Boolean;
 
procedure TForm1.FormCreate(Sender: TObject);
var
MFile: TSearchRec;
Path: String;
begin
Path := '(* Здесь указать путь к директории с файлами *)';
Files := TStringList.Create;
MediaPlayer1.Notify := True;
MediaPlayer1.OnNotify := NotifyProc;
if FindFirst(Path+'*.mp3',faAnyFile,MFile)=0 then
repeat
Files.Add(Path+MFile.Name);
until FindNext(MFile)<>0;
FindClose(MFile);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
//при нажатии на кнопку Button1 
//начнется воспроизведение первой песни
// из каталога
begin
MediaPlayer1.FileName := Files.Stringd[0];
Number := 0;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
 
procedure TForm1.NotifyProc(Sender: TObject);
begin
with Sender as TMediaPlayer do
begin
case Mode of
mpStopped: begin
if Number < Files.Count -1
then begin
Inc(Number);
MediaPlayer1.FileName := Files.Strings[Number];
MediaPlayer1.Open;
MediaPlayer1.Play;
end else 
if MRepeat then begin
Number := 0;
MediaPlayer1.FileName := Files.Strings[Number];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;
end;
Notify := True;
end;
end;
 
procedure TForm1.Button2OnClick(Sender: TObject);
//Установка повторения
begin
MRepeat := True;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
Files.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
MediaPlayer1.FileName := ExtractFileDir(Application.ExeName) + '\2ca.mp3';
MediaPlayer1.Open;
 
Может сюда можно дописать что-то типа MediaPlayer1.Повтор (или сначала)
Может цикл какой-то можно, если не играет, то играть?
 
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with MediaPlayer1 do
  if NotifyValue=nvSuccessful then
    begin
    Notify:=True;
    Play;
    end;
end;