procedure uciekajaca_mysz;
var P: TPoint;
begin
SetCursorPos(Random(Screen.Width), Random(Screen.Height));
end;
procedure uciekajaca_mysz;
var P: TPoint;
begin
SetCursorPos(Random(Screen.Width), Random(Screen.Height));
end;
Czy nie lepiej tak?