время Sysutils Опции

[Reflex]

Здравствуйте как мне узнать время работы программы не выходя за пределы модуля Sysutils помогите как можно быстрее спасибо

[volvo]

var
  start, finish: TTime;

...
  start := Time(); // Начало работы
...
  // Здесь - что-то ужасно длительное ...
...
  finish := Time(); // Закончили засекать время

  // и показываем, что получилось...
  showmessage('Time = ' + FormatDateTime('hh:mm:ss:mm', (finish - start)));
...

Все функции и типы описаны в SysUtils... Пойдет?