Таймер в Delphi

[Krasavica]

Такой вопрос-как сделать таймер,что бы срабатывал по нажатию определенной кнопки и выдавал результат после окончания действия,связанного с кнопкой.

[type_Oleg]

Сообщение от Krasavica

.. и выдавал результат после окончания действия,связанного с кнопкой.

То есть надо определить время выполнения этого действия ?
Тогда можно так:

procedure TForm1.Button1Click(Sender: TObject);
var t0:TDateTime;
  i,n:Integer;
begin
 t0:=Now;
 for i:=1 to 10000000 do n:=i+i;   //  например 
 Label1.Caption:='Прошло '+FloatToStr(86400*(Now-t0))+' секунд';
end;