[friz]

Вот валялись какие-то заготовки:

Код:

var x0,y0,x1,y1:integer;
    i,j,zu:integer;
    DC: HDC;
    Color: Cardinal;                         
begin 
//x1,y1 - верхний левый угол, x2,y2 нижний правый угол, окна с приложением
i:=strtoint(edit1.Text); //x1
j:=strtoint(edit2.Text); //y1
x1:=strtoint(edit3.Text);  //x2
y1:=strtoint(edit4.Text); //y2
//edit5.Text - код цвета который надо найти в 16-ти ричной записи (прим:FFFFFF)
while i<=x1 do
 begin
  While j<=y1 do
  begin
  DC := CreateDC('Display', nil, nil, nil);
  Color := GetPixel(DC,i ,j ); //получаем цвет в точке 
 
  if edit5.Text=IntToHex(color,6) then begin SetCursorPos(i,j);{тут вставляешь процедуру кликалки} sleep(100); end;
  DeleteDC(DC);
  j:=j+5; //просматриваем через 5 пикселей, можно сделать меньше в зависимости от размера элементов
  end;
  j:=strtoint(edit2.Text);
  i:=i+5;
 end;
end;