Reconocimiento de Imagenes

[[coso]]

hola, la funcion deberia recorrer cada pixel por cuadrado y ir mirando si debe ser blanco o negro, algo asi como

Código Delphi [-]
function iguales : boolean;
var
  i, j : integer;
  col, row : integer; 
const
 tamanyo_cuadro : integer = 30;
begin
for i := 0 to Image1.Width do                   
for j := 0 to image1.Height do                  
begin                                                   
     col := i div tamanyo_cuadro; // 0,1
     row := j div tamanyo_cuadro; // 0,1,2
     if (col + row) mod 2 = 0 then c := clBlack else c := clWhite;
     if not Image1.Canvas.Pixels[i,j] = c then begin iguales := false; exit; end;
end;
iguales := true;
end;