Delphi. Простейший Способ Измерить Время

[Lomanu4]

Добавляем TTImer в программу

Фиксируем начальное время и запускаем таймер в OnCreate или на какой-то кнопке

 FStartDateTime:=Now();
    tWorkingTime.Enabled:=True;

Обработка таймера

procedure TfHTTPServer.tWorkingTimeTimer(Sender: TObject);

var WorkingTime:TDateTime;

begin

WorkingTime:=Now-FStartDateTime;
lTimeOfWorking.Caption:=FormatDateTime('hh:mm:ss',WorkingTime);

end;