Программное нажатие клавиш

[Damien4Damien]

Всем добрый день
Имеется код:

procedure TForm2.Button1Click(Sender: TObject);
begin
  Timer1.Interval := 10;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  if GetAsyncKeyState($33) <> 0 then
  begin
    keybd_event($67,0,0,0);
    keybd_event($67,0,KEYEVENTF_KEYUP,0);
  end;
end;

Я пытался отловить нажатие определенной клавиши на клавиатуре... В данном случае - клавиши 3... И если нажатие произошло - то в этот же момент нажать другую клавишу.
Все это у меня получилось... Но есть один неприятный нюанс... Вторая клавиша нажимается не один раз(как хотелось бы), а несколько. Как это можно исправить?

[Damien4Damien]

Проблема решена... Все дело было в таймере, которые заново запускал цикл во время нажатия клавиши... Поставил Sleep(150) - все стало отлично.

[Stilet]

Вторая клавиша нажимается не один раз(как хотелось бы), а несколько

А у меня один раз... Нажал 3 получил в добавок 7
Ты объясни зачем тебе это счастьеце