[Prame]

Канешно не то что тебе нужно, но попробуй вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  OK: boolean;

begin
  OK:=false;
  SHOWMESSAGE('=)');
repeat
  randomize;
   
 setcursorpos(random(Screen.Width-1),random(Screen.Height-1));
    
sleep (100);
 until OK;

end;
end.

Admin: Пользуемся тегами!