Mediaplayer Spielzeit richtig anzeigen

[Birzenbae]

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