Получите время в миллисекундах Delphi
DateUtils.MilliSecondsBetween(Now, 0);
Jealous Jay
DateUtils.MilliSecondsBetween(Now, 0);