...
if (Image1.Picture.Bitmap.Width = Image2.Picture.Bitmap.Width) and
(Image1.Picture.Bitmap.Height = Image2.Picture.Bitmap.Height) then
for i := 1 to Image1.Picture.Bitmap.Width do
begin
for j := 1 to Image1.Picture.Bitmap.Height do
begin
if Image1.Picture.Bitmap.Canvas.Pixels[i,j] :=
Image2.Picture.Bitmap.Canvas.Pixels[i,j] then
Iguales := False; end;
end;