[M.A.D.M.A.N.]

Код:

var Count:Byte;
...
procedure TForm1.TimerOnTimer(Sender:TObject);
begin
  Timer.Enabled:=False;
end;
...
procedure TForm1.btnCountOnClick(Sender:TObject);
begin
  inc(Count);
end;
...
(* Timer.Interval:=10*1000
    Timer.Enabled:=True
*)