Delphi 计算执行时间

Delphi 计算执行时间

var
  StartTime, EndTime: cardinal;

   strs:string;
begin
  StartTime := GetTickCount;
  DoSomething;  //执行操作
  EndTime := GetTickCount;
  strs:= (IntToStr(EndTime - StartTime) + ' ms');

  ShowMessage(strs);
end;