Milisekunden jetzt!

[theomega]

Hallo
ich habe folgenden Code gschrieben um die aktuelle Zeit in Milisekunden herauszubekommen. Nur der Code gibt immer 0 zurück:

Delphi-Quellcode:

function gettime:longword;
var now,hour,min,sec,msec:word;
parent:TDateTIme;
z:longword;
begin;
parent := now;
decodetime(parent,hour,min,sec,msec);
z := msec+(sec*1000)+(min*60*1000)+(hour*60*60*1000);
result := z;
end;

Warum ist das so?
Wo ist der Fehler?

Danke

TO