Millisekunden aus Time ausrechnen

[Muchacho]

Hi,

wie kann ich mathematisch Millisekunden aus einer Uhrzeit ausrechnen, wenn ich die Funktion Time benutze?

Ich habe probiert mit DecodeTime

Delphi-Quellcode:

  Present := Time;
  DecodeTime(Present, Hour, Min, Sec, MSec);
  Sekunden:=  (Hour * 3600) + (Min * 60) + Sec;
  Millisekunden :=  (Sekunden * 1000) + MSec;

Leider bekomme ich falsche Ergebnisse

Bitte um Hilfe

Gruß

Muchacho