1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.FormCreate(Sender: TObject);
 begin
  o:=0;
  Mediaplayer1.visible:=false;
  MediaPlayer1.FileName := 'song.mp3';
  MediaPlayer1.Open;
  Mediaplayer1.play;
  MediaPlayer1.Notify := True;

 end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  with MediaPlayer1 do
    if NotifyValue = nvSuccessful then begin
      Notify := True;
      MediaPlayer1.FileName := 'song.mp3';
      MediaPlayer1.Open;
      Mediaplayer1.play;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TForm1.FormCreate(Sender: TObject);
begin
  MediaPlayer1.Visible:=false;
  MediaPlayer1.FileName:='xyz.mp3';
  MediaPlayer1.Open;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if MediaPlayer1.Position = MediaPlayer1.Length then
  // ^^ Prüft ob Song schon zu Ende ^^
  // Wenn Song zu Ende, neu starten

 Begin
  MediaPlayer1.Rewind; // Song auf Anfang zurücksetzten
  MediaPlayer1.Play;   // Song abspielen
 end
end;

procedure TForm1.PlayClick(Sender: TObject);
begin
  MediaPlayer1.Play;     // Song abspielen
  Timer1.Enabled:=true;  // Timer starten
end;

procedure TForm1.StopClick(Sender: TObject);
begin
  MediaPlayer1.Stop;     // Song stopen
  MediaPlayer1.Rewind;   // Song auf Anfang zurücksetzten
  Timer1.Enabled:=False; // Timer stopen
end;

procedure TForm1.PauseClick(Sender: TObject);
begin
  MediaPlayer1.Stop;     // Song stopen
end;