sekunden zu zeit?

[Headi]

Hallo leute,

Habe leider wieder mal ein kleines Problem.
Es geht darum, sekunden in Zeit umzuwandeln.
Ich habe schon jeden Code versucht, den ich hier finden konnte, aber keiner funktioniert so wie ich es möchte.
Zurzeit benutze ich diesen Code:

Delphi-Quellcode:

function SecondsToTime(wSeconds: Word): TDateTime;
begin
  result := wSeconds / (24 * 60 * 60);
end;

dieser code wandelt aber leider irgendwie nur bis zu 23:00:00 um,
und ich brauche aber Tage:Stunden:Minuten:Sekunden.

Wie kann ich das jetzt machen?

vielen dank schon mal

mfg headi