Delphi - Make a Thread that plays a song in a loop

Question

I managed to make a Thread that plays the song, but only once. If I put a loop on it I have several errors, like the 1400.

It seems that the thread does not close when you close Form1, because the problem always comes when I try to close it.

I have only 2 Units. 1 is Form1 and the other is Tmusica thread.

I’ve tried Goto, While, Repeat, With. Nothing works, the song is called music.mp3. I use the Delphi XE8. How do I resolve?

Call from the Tmusica Thread:

procedure TForm1.FormCreate(Sender: TObject);  
var
  Thread:TMusica;
begin
   //Bloco de Códigos
  Thread := TMusica.Create(False);  
  Thread.FreeOnTerminate := True;
  Thread.Resume;
   //Outros códigos...
 end;

A Thread Tmusica:

procedure TMusica.Execute; 
begin 
  Form1.MediaPlayer1.FileName: = 'music.mp3';
  Form1.MediaPlayer1.Open;
  Form1.MediaPlayer1.Play;
end;

Answer 1

Well, I analyzed your project and you don’t have to do all that to work, just follow the simple procedures to follow:

Add a component to the form TMediaPlayer and change the property Visible from it to False;

In the form Oncreate event add these procedures:

procedure frmExemplo.FormCreate(Sender: TObject);
begin
  MediaPlayer1.Close;
  MediaPlayer1.FileName:=('d:\01.mp3'); //Caminho do seu arquivo Mp3
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

Add a component TTimer, change the property Interval from it to 84000 (84000 corresponds to 1 minute and 24 seconds in milliseconds), that is, when exactly the song ends it will play again:

procedure frmExemplo.Timer1Timer(Sender: TObject);
begin
  MediaPlayer1.Play;
end;

The two components I mentioned are on the Tab System.