Delphi 计时单元System.Diagnostics

TStopwatch
属性：

　　Elapsed 　　　　　　获取当前实例测量得出的总运行时间。
　　ElapsedMilliseconds 获取当前实例测量得出的总运行时间（以毫秒为单位）。
　　ElapsedTicks 　　　 获取当前实例测量得出的总运行时间（用计时器计时周期表示）。
　　IsRunning 　　　　 获取一个指示 Stopwatch 计时器是否在运行的值。

方法

　　GetTimestamp 　　获取计时器机制中的当前最小时间单位数。
　　Reset 　　　　　　 停止时间间隔测量，并将运行时间重置为零。
　　Restart 　　　　　 停止时间间隔测量，将运行时间重置为零，然后开始测量运行时间。
　　Start 　　　　　　 开始或继续测量某个时间间隔的运行时间。
　　StartNew 　　　　 对新的 Stopwatch 实例进行初始化，将运行时间属性设置为零，然后开始测量运行时间。
　　Stop 　　　　　　 停止测量某个时间间隔的运行时间

 测试

procedure TForm1.btn1Click(Sender: TObject);
var
timer: TStopwatch;
I, n: Int64;
tt: Int64;
begin
timer := TStopwatch.Create;
///开始计时
timer.Start;
n := 0;
for I := 0 to 100000000 do
begin
Inc(n);
end;
///结束计时
timer.Stop;
///获取毫秒数的间隔
tt := timer.ElapsedMilliseconds; //408
end;