program New;
var
X:Integer;
Y:Integer;
const
TopCornerX = 0; // Set area coordinates here.
TopCornerY = 0;
LowCornerX = 0;
LowCornerY = 0;
begin
ActivateClient;
repeat
MouseBox(TopCornerX, TopCornerY, LowCornerX, LowCornerY);
GetMousePos(X,Y);
ClickMouse(X,Y);
Wait(30000 + Random(110000)); //Waits 30-140 sec.
until False;
end.