Obtenha tempo em milissegundos delphi
DateUtils.MilliSecondsBetween(Now, 0);
Jealous Jay
DateUtils.MilliSecondsBetween(Now, 0);