On Key Down funktioniert nicht

[Bummi]

ich weiß ja nicht was Du vor hast, aber versuch's mal so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  
  inter := not inter;
   
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if inter then
begin

 pos := Point(mouse.CursorPos.X-2,mouse.CursorPos.Y-2);
 mouse.CursorPos := pos;

end;
end;

procedure TForm1.OnKey(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = vk_down then inter := not inter; // wenn Du toggeln willst
end;