Timer blocken -.-

[MasterTobi]

ok da ich es nicht hinbekommen habe habe ich es etwas anders gemacht.

un zwar :
habe ich nur 7 Buttons, in jedem Button ändert sich text := Edit1.text um 1, also ..:=edit1, edit2, edit3 etc.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if taste = 1 then
  begin
    keybd_event(VKKeyScan('t'),0,0,0);
    text :=Edit1.Text;
    EnterText(text);
    sendkeys('{ENTER}',true);
    taste:=0;
    exit;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if taste = 1 then else begin
    keybd_event(VKKeyScan('t'),0,0,0);
    text :=Edit2.Text;
    EnterText(text);
    sendkeys('{ENTER}',true);
    taste:=0;
    exit;
end;
end;
....
procedure TForm1.Button3Click(Sender: TObject);
procedure TForm1.Button7Click(Sender: TObject);

nun noch 2 Timer

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (GetASYNCKeyState ($31) <> 0)then begin
  button1.Click;
  end;

  if (GetASYNCKeyState ($32) <> 0)then begin
  button2.Click;
  end;

  if (GetASYNCKeyState ($33) <> 0)then begin
  button3.Click;
  end;

  if (GetASYNCKeyState ($34) <> 0)then begin
  button4.Click;
  end;
  if (GetASYNCKeyState ($35) <> 0)then begin
  button5.Click;
  end;
  if (GetASYNCKeyState ($36) <> 0)then begin
  button6.Click;
  end;
  if (GetASYNCKeyState ($37) <> 0)then begin
  button7.Click;
  end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if (GetASYNCKeyState (VK_return) <> 0) then begin
  taste:=0;
  end;
  if (GetASYNCKeyState (Ord('T')) <> 0)then begin
  taste:=1;
  end;

alles geht wunderbar bis Button6 bzw. bis Taste 6
sobald ich taste7 drücke oder button7 hängt sich alles auf, er gibt mir dann irgendwie button1 aus un das immer hintereinander bis ich das programm dann schließe.

weiß jemand wieso das so ist?