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