Automatically Play MP3 after the other

uses ExtCtrls, MPlayer, ComCtrls

var
  Form1: TForm1;
  PlayerX: string;
  PlayerXXX: string;
  
//

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ProgressBar1.Position := trunc(mediaplayer1.Position / mediaplayer1.Length * 100);
  if mediaplayer1.Position = mediaplayer1.Length then
    Timer2.Enabled := False;
    Timer1.Enabled := False;


  if ProgressBar1.Position = 100 then
  begin
    MediaPlayer1.Close;
    PlayerXXX      := Label1.Caption;
    label2.Caption := PlayerXXX;
    MediaPlayer2.FileName := PlayerXXX;
    Mediaplayer2.TimeFormat := tfMilliSeconds;
    MediaPlayer2.Open;
    MediaPlayer2.play;
    Timer2.Enabled := true;

    button2.Enabled := False;
    button3.Enabled := False;

    timer2.Interval := 100;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with OpenDialog1 do
    if Execute then 
    begin
      PlayerX        := OpenDialog1.FileName;
      Label1.Caption := PlayerX;

      with MediaPlayer1 do 
      begin
        MediaPlayer1.FileName   := PlayerX;
        Mediaplayer1.TimeFormat := tfMilliSeconds;
        MediaPlayer1.Open;
      end;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Mediaplayer1.play;
  Timer1.Enabled := true;
  //Timer2.Enabled := true;
  Timer1.Interval := 100;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Mediaplayer1.pause;
  Timer1.Enabled := false;
  Timer2.Enabled := false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  ProgressBar2.Position := trunc(mediaplayer2.Position / mediaplayer2.Length * 100);
  if mediaplayer2.Position = mediaplayer2.Length then
    timer2.Enabled := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := false;
  Timer2.Enabled := false;
end;