Поиск изображения в изображении

for x:=0 to p.Width do
    for y:=0 to p.Height do
    begin
    c:=p.Canvas.Pixels[x,y];
    r := GetRValue(c);
    g := GetGValue(c);
    b := GetBValue(c);
    if ((r)>180) and ((g)>170) and ((r)>170) then
      begin
      p.Canvas.Pixels[x,y]:=clRed;
      red := red + 1;
      end
        else
      begin
      p.Canvas.Pixels[x,y]:=clWhite;
      white := white +1;
      end;
    end;

  for x:=0 to p.Width do
    for y:=0 to p.Height do
      begin
       c:=p.Canvas.Pixels[x,y];
       r := GetRValue(c);
       g := GetGValue(c);
       b := GetBValue(c);
       if ((r)>180) and ((g)>170) and ((r)>170) then
         p.Canvas.Pixels[x,y]:=clRed
              else
         p.Canvas.Pixels[x,y]:=clWhite;
      end;
 
    for x:=0 to p.Width do
      for y:=0 to p.Height do
        begin
         p1.Canvas.CopyRect(Rect(0, 0, 170, 170), p.canvas, Rect(x, y, x+170, y+170));
             for xw:=0 to p1.Width do
              for yh:=0 to p1.Height do
                 begin
                  c:=p1.Canvas.Pixels[xw,yh];
                  r := GetRValue(c);
                  g := GetGValue(c);
                  b := GetBValue(c);
                  if ((r)>180) and ((g)>170) and ((r)>170) then
                    begin
                     red := red + 1;
                    end
                    else
                    begin
                     white := white +1;
                    end;
                  end;
        if (red>2400) and (red<4200) and (white>25000) and (white<27000) then
            image1.Picture.Bitmap.Assign(p1);
        end;

p.Canvas.Arc(0,0,170,160,100,100,100,100);