Передвинуть мышь
Установить курсор мыши в определенное место экрана проще всего с помощью SetCursorPos. procedure TForm1.Button1Click(Sender: TObject);var
x, y: integer;
a: real;
begin
a := 0;
repeat
a := a + 0.0001;
x := round(Screen.Width div 2 * (1 + cos(a)));
y := round(Screen.Height div 2 * (1 + sin(a)));
SetCursorPos(x, y);
Application.ProcessMessages;
until Application.Terminated;
end;
