Delphi计算程序运行时间

var
  StartTime, EndTime: cardinal;
begin
  StartTime := GetTickCount;
  sleep(1000);
  EndTime := GetTickCount;
  caption := (IntToStr(EndTime - StartTime) + ' ms');
end; 

转：Delphi 计算程序运行时间 http://www.delphitop.com/html/chengxu/2882.html