[mak-karpov]

Когда руки прямые, FAQ не нужно.

Код:

var Sec,Min : Integer;
    SSec,SMin : String;
Sec := MP1.Position div 1000;
Min := Sec div 60;
if Sec > 9 then SSec := IntToStr(Sec) else SSec : '0' + IntToStr(Sec);
SMin := IntToStr(Min)
Label1.Caption := SMin + ':' + SSec;