@Luckie: Sei doch bitte nicht immer so wortkarg und erläutere doch die wichtigen Dinge. Hier beispielsweise, dass man die Zeit in Millisekunden angeben muss.
Edit: Ging es nicht auch einfach so?
Delphi-Quellcode:
function FormatTime(t: int64): string;
begin
t := t div 1000; // seconds
result := IntToStr(t mod 60) + ' Sek ' + result;
t := t div 60; // minutes
result := IntToStr(t mod 60) + ' Min ' + result;
t := t div 60; // hours
result := IntToStr(t mod 24) + ' Std ' + result;
result := IntToStr(t div 24) + ' T ' + result;
end;