[Noooob]

В чем проблема?

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
scale=50;
var
I,J:integer;
begin
for i:=0 to Form1.Width div scale do
for j:=0 to Form1.Height div scale do
begin
if getpixel(Form1.Handle,i*scale,j*scale)=255 then
begin
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, i*scale * (65535 div Form1.Width),j*scale* (65535 div Form1.Height), 0, 0);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, i*scale * (65535 div Form1.Width),j*scale* (65535 div Form1.Height), 0, 0);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, i*scale * (65535 div Form1.Width),j*scale* (65535 div Form1.Height), 0, 0);
  exit;
end;
caption:=inttostr(i*scale)+' '+inttostr(j*scale);
end;
end;