Засечь время, затраченное на выполнение программы. Делфи.

[north]

Как в Delphi засечь время, затраченное на выполнение программы.

[_Dmitry]

var
  T: TDateTime;
//Сразу после запуска
  T:=Time;
//В конце работы
  T:=Time-T;
//Печатать результат
  Edit1.Text:=TimeToStr(T);

[north]

Спасибо за ответ

[north]

А как засечь ещё милисекунды?

[_Dmitry]

var
  SystemTime: TSystemTime;
  h,m,s,ms: word;
begin
  GetLocalTime(SystemTime);
  h:=SystemTime.wHour;
  m:=SystemTime.wMinute;
  s:=SystemTime.wSecond;
  ms:=SystemTime.wMilliseconds;
end;

[mutabor]

GetTickCount возвращает кол-во милисекунд от старта системы, обнуляется приблизительно через 50 дней непрерывной работы системы.