also ich hab das so gelöst
Delphi-Quellcode:
function time(zeit:integer): string; //funktion für zeitausgabe in minuten und sekunden
var allsec,
second,
minute: Integer;
begin
allsec:=zeit div 1000;
minute:=allsec div 60;
second:=allsec mod 60;
if second<10 then
Result:=inttostr(minute)+':0'+inttostr(second)
else
Result:=inttostr(minute)+':'+inttostr(second);
end;
//das muss in Timer rein
Label2.Caption:=time(Mediaplayer1.Position);
is vll. nicht die eleganteste art aber es funktioniert