function DateTimeToTimeStamp(DateTime:TDateTime):cardinal; begin result:= round(frac(DateTime)*1000000000); end;