Трюк с таймером

[beemoto]

народ плиз помогите!
как можно зделать такое:
например:
пользователь 3 раза жмет на кнопку потом включается таймер на 5 минут и в это время кнопка выключается. по истечению таймера кнопка снова включается!
как такое зделать!?

[beemoto]

вот чёт намутил:
if 3 = button1.click then
timer1.enabled:=true and button1.enabled:=false;
===================
procedure timer:
-------
button1.enabled:=true;
button1.Click;

[Levsha100]

i:=0;

Когда пользователь клацает

i:=i+1;
If i>=3 then
 begin
   Button1.Enabled:=false;
   Timer1.Enabled:=true;
   i:=0;
 end;

А в таймере прописываешь

Button1.Enabled:=true;
Timer1.Enabled:=false;

P.S. Обрамляй код тегами [CODE]

[program123]

var
i:integer;
...................

procedure TForm1.Button1Click(Sender: TObject);
begin
      kol:=kol+1;
      FOrm1.Caption:=IntToStr(kol);
      if kol=3 then
      begin
      Timer1.Enabled:=True;
      Button1.Visible:=False;
      end;


end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     Button1.Visible:=True;
     kol:=0;
end;

[Levsha100]

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     Button1.Visible:=True;
     kol:=0;
end;

Только таймер надо вырубить

[program123]

да =), и если вам надо на 5 минут, то Interval измените

[beemoto]

Levsha100, почемуто нехочет.
program123, ундекларед индетифкатор:kol

[beemoto]

program123, интервал менял

[program123]

извеняюсь, вместо i: integer; сделайте kol:integer; совсем башка не варит )

[beemoto]

program123,УХУУУУУ!
СПАСИБО ВСЕМ!!!
всем +1 в отзыв!
тема клозед!