[mak-karpov]

На самом деле прогресс делается проще.

Код:

var i : Integer;

function IntToStrFix(Value, FixDigits : Integer) : String;
var s,s1 : String;
begin
  s := IntToStr(Value);
  result := s;
  If Length(s) < FixDigits then begin
    s1 := StringOfChar('0',FixDigits  - Length(S));
    result := s1 + s;
  end;
end;
begin
i := MediaPlayer1.Position;
Label1.Caption := IntToStrFix((i div 1000) div 60, 2) + ':' + IntToStr((i div 1000) mod 60);