Die einfachste Möglichkeit ist die hier:
Es gibt in Delphi den Datentyp 'TDateTime'. Der ganzzahlige Anteil ist die Anzahl der Tage seit dem 1.1.1900. Der Nachkommaanteil beschreibt die Tageszeit: 0.5 ist Mittags, 0.25 morgens um 6. Soweit so gut.
Dann gibts noch eine Funktion, die die Uhrzeit in dem von dir gewünschten Format anzeigt: TimeToStr.
So, und dann hat der Tag 86400 (60*60*24) Sekunden. Also kannst Du deine Sekunden ganz einfach so anzeigen lassen:
Delphi-Quellcode:
Function SecondsToStr (aSeconds : Integer) : String;
Var
iDays : Integer;
Begin
iDays := aSeconds div 86400;
Result := TimeToStr (aSeconds/86400);
If iDays>0 Then
Result := Format ('%d Tag(e), %s',[iDays, Result]);
End;
Die Funktion zeigt Dir, wenns denn sehr lange dauert, auch noch die Tage an, also z.B.: "2 Tag(e) 05:03:02"