您可以使用System.Diagnostics单元中的TStopwatch使用系统的高分辨率性能计数器测量经过的时间.

var
  Stopwatch: TStopwatch;
  Elapsed: TTimeSpan;
....
Stopwatch := TStopwatch.StartNew;
DoSomething;
Elapsed := Stopwatch.Elapsed;

要以秒为单位读取时间值(例如,从时间跨度),请执行以下操作：

var
  Seconds: Double;
....
Seconds := Elapsed.TotalSeconds;