delphi 计算代码执行时间

计算代码执行时间

var
StartTime, EndTime: cardinal;
begin
StartTime := GetTickCount;

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