[Alegun]

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

...должен постоянно нажиматься пробел...

Нужны только клики, вкл и выкл

Код:

procedure TForm1.tmr1Timer(Sender: TObject); 
begin  
keybd_event(VK_SPACE,0,KEYEVENTF_EXTENDEDKEY,0);// Жмём
keybd_event(VK_SPACE,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); //Отпускаем
end;     

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState); 
begin
if Key = 65 then
begin
tmr1.Enabled:= True; 
mmo1.Lines.Add('on'); 
end;   
end;   

procedure TForm1.Button2KeyDown(Sender: TObject; var Key: Word; 
 Shift: TShiftState); 
begin
if Key = 65 then
begin
tmr1.Enabled:= False; 
mmo1.Lines.Add('off'); 
end;   
end; 

иначе фокус на кнопке остаётся и она жмёт сама на себя.