sekunden zu zeit?

[Headi]

Danke erst mal, geht aber irgendwie nicht:

erste funktion:

eingabe= 3600 sekunden (1Stunde)
ausgabe= 0 T 00 Std 00 Min 03 Sekunden 600 //falsch

code:
Edit2.Text:=FormatTime(StrToInt64(Edit1.Text));
zweite funktion:

eingabe= 86399 sekunden (23:59:59)
ausgabe= 23:59:59 // korrekt

eingabe= 86399 sekunden (01 Tag 00:00:01)
ausgabe= 31.12.1899 00:00:01 // falsch

code:
Edit2.Text:=DateTimeToStr(SecondsToTime(StrToInt(Edit1.Text))); vielen dank schon mal für eure hilfe

mfg headi