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; row := j div tamanyo_cuadro; 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;