Ich würde mal auf
Time('00010101' concat Digits(Dec(DatNum, 6, 0)))
tippen.
Ohne es jetzt probiert zu haben

Gruß
Ronald