delphi 循环的问题

我是菜鸟，各位高手先看源码
procedure TForm1.Button2Click(Sender: TObject);
var
  DC :HDC;
  a,x,y:integer;
begin;
 DC := GetDC(0);
 a:= integer(GetPixel(DC, 263, 58));//坐标
  if a = 5475500 then
  begin
  showmessage('ok');
  end;
 end;
//这是在屏幕里判断一个点的颜色是不是5475500。
现在想做一个循环，在坐标附近找有没有一个点的颜色是5475500。
比如范围是-2<x<2   -2<y<2
只要找到这个点就跳出循环，提示ok
源码应该怎么写呢？
 

补充：
补充一下
只要找到这个点就跳出循环，获得这个点的坐标，提示ok。
		

答案：应该是双重for循环吧，大致是
假设中心点在origX,origY,范围是range 2

for x 在范围[origX-2,origX+2]
  for y 在范围[origY-2,origY+2]
     if x合法，y合法   //合法就是不超过屏幕有效范围，比如x不能小于0或者大于分辨率的最大X
        a=inte...
        if  a=设定值
  跳出双重循环，或者直接返回

上一个：delphi如何实现查看局域网在线主机
下一个：Delphi与Visual Basic有什么区别?