Ein Tag im TDateTime-System entspricht 1.0, also kann man das direkt in Millisekunden umrechnen.
Delphi-Quellcode:
Present := Time;
Millisekunden := Present*{Stunden pro Tag}24 * {Min pro std}60 * {s pro Min}60 * 1000;
Es gibt sogar irgendwo in
Unit System oder SysUtils eine Konstante MILLISECONDS_PER_DAY (oder so ähnlich, kann gerade nicht nachschauen)
Millisekunden := Trunc(Time*MILLISECONDS_PER_DAY);