Show Remaining Playing Time

uses ExtCtrls, ComCtrls, MPlayer

//

procedure TForm1.Timer1Timer(Sender: TObject);
Var
 TheLength, Posi, SummaMin, SummaSec: Integer;
begin
  //Progress Bar to check if the track is playing
  if ProgressBar1.Max<>0 then Begin
    ProgressBar1.Position := Mediaplayer1.Position;

     //Gets the length of the selected track
    TheLength := Mediaplayer1.TrackLength[ListBox1.ItemIndex];

      //gets the current position of the track
      Posi := Mediaplayer1.Position;

      //Caculates Minutes
      SummaMin := ((TheLength - Posi) div 1000) Div 60;

      //Calculates Seconds
      SummaSec := ((TheLength - Posi) Div 1000) Mod 60;

      //Adds zero if Seconds are less then ten
      If SummaSec < 10 Then
      Label2.Caption := '0' + IntToStr(SummaSec)
      Else
      Label2.Caption := IntToStr(SummaSec);

      //Minutes
      Label1.Caption := IntToStr(SummaMin);

End;
end;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
with OpenDialog1 do
    if Execute then
    begin
      with MediaPlayer1 do
      begin
        MediaPlayer1.FileName   := OpenDialog1.FileName;
        MediaPlayer1.Open;
        ListBox1.Items.Add(OpenDialog1.FileName);
      end;
      Timer1.Enabled := true;
    end;
end;