[Flop88]

Короче говоря. Нужно чтобы программа зажимала кнопку и затем отжимала, спустя некоторое время ( q ) также зажимала и отжимала кнопку, но уже другую кнопку Вот написал, а оно не работает. В чём проблемка может быть?

Код:

procedure TForm1.tmr1Timer(Sender: TObject);
var
  q: Integer;
begin
keybd_event(Byte('A'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(Byte('W'), 0, 0, 0);
Sleep(q);
keybd_event(Byte('W'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(Byte('D'), 0, 0, 0);
Sleep(q);
keybd_event(Byte('D'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(Byte('S'), 0, 0, 0);
Sleep(q);
keybd_event(Byte('S'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(Byte('A'), 0, 0, 0);
Sleep(q);
begin
if rb1.Checked then
 q:= 1000;
end;
begin
if rb2.Checked then
 q:= 2000;
end;
begin
if rb3.Checked then
 q:= 3000;
end;
begin
if rb4.Checked then
 q:= 4000;
end;
begin
if rb5.Checked then
 q:= 5000;
end;
end;

[angvelem]

Назначили переменной q некоторое значение и что дальше? Где она изменяется/используется. Использовать Sleep в таймере?... Нонсенс.

[Flop88]

ну я только учусь

[angvelem]

Глобальная переменная наращивается и сравнивается с q, при равенстве, q обнуляется и выполняется требуемое действие. Не забудь учесть время выставленное для таймера.

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

Программа задом наперед написана.
Переменную q проинициализируй до эмуляции нажатия клав.

P.S. Синхронно нах :-)