Delphi - Como puedo comparar dos imagenes pixel a pixel

Hola, estoy realizando una aplicacion y necesito comparar dos objetos TImage, pixel a pixel para comprobar variaciones entre ambas imagenes, pudiendo definir un porcentaje de diferencia entre ambas ( de modo que se pueda "escojer" el grado de precision en la comparacion)

Si alguien puede hecharme una mano, le estaria muy agradecido.

Saludos.

Mira en la ayuda de Delphi la propiedad Canvas de TImage, esta propiedad es de tipo TCanvas y ésta última clase tiene una propiedad Pixels de tipo TColor.

Si haces un bucle (y suponiendo que las dos imágenes son del mismo tamaño):

for i:=0 to Imagen1.Width do begin

for j:=0 to Imagen1.Height do begin

if Imagen1.Canvas.Pixels[i,j] <> Imagen2.Canvas.Pixels[i,j] then
//Son diferentes

end;{for j}

end;{for i}

Ya tienes las dos imágenes comparadas.

Ojo, este bucle es bastante lento.

Saludos.