Примерно тоже, что предложил lmikle, только ещё на секунды разобрать нужно.
Код:
var
Ms : Int64;
procedure Timer1Timer(Sender: TObject);
begin
Ms := MilliSecondsBetween(Now, EncodeDateTime(1970,1,1,0,0,0,0));
end;
этот вариант lmikle, для начинающих проще.