[lmikle]

Ну, если тупо, то примерно так:

Код:

uses DateUtils;

var
  ms : Int64;
begin
  ms := MilliSecondsBetween(Now() - EncodeDateTime(1970,1,1,0,0,0,0));

Дает с точностью до милисекунды