das brauchst du dir doch nur rausrechen?
TDateTime:
1,0 = 1 Tag
0,5 = 0,5 Tage = 12 Stunden
0,25 = 1/4 Tag = 6 Stunden
0,1 = 1/10 Tag = 2 Stunden 24 Minuten
GetTickCount/Millisekunden:
1000 = 1 Sekunde
60000 = 1 Minute
...
oder du nimmst Funktionen wie
FormatDateTime 