Nomadic советует:

procedure TForm1.Timer1Timer(Sender: TObject); begin mouse_event(MOUSEEVENTF_MOVE, Random(21) - 10, Random(21) - 10, 0, 0); end;

[001745]