Программа помещающая мышь в случайную точку экрана.

Program Mouse1;

uses

  Forms, Windows;

 

{$R *.res}

 

 

var

OK: boolean;

 

begin

OK:=false;

repeat

randomize;

setcursorpos(random(Screen.Width-1),random(Screen.Height-1));

sleep (500);

until OK;

 

end.