зафиксировать начальное время тестирования Делфи

[Коккс]

Всем доброго времени суток! Как зафиксировать начальное время тестирования в Делфи при нажатии на Button и конечное?

Чего в свободное общение такие темы помещать? Оглавление разделов недосуг прочитать?
Модератор

[type_Oleg]

Можно так:

var
  Form1: TForm1;
  t_start: TDateTime;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 t_start:=Now;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Edit1.Text:=FloatToStr(86400*(Now-t_start))+' сек';
end;

Нажал Button1 - начало отсчета, нажал Button2 - конец и результат.

Или вместо Button1Click описать в FormCreate - будет считать от запуска программы.