Übereinstimmung von Bildern

[robinWie]

Hi,
ich will ein Programm schreiben das überprüft zu wie viel Prozent zwei geöffnete Bilder übereinstimmen. Als erstes hatte ich die Menthode den Farbcode zufällig ausgewählter Pixel in den Bildern zu vergelichen. Das hat funktioniert, war aber nicht sicher. Also habe ich nach einer Möglichkeit gesucht mit der man alle Pixel miteinander vergleicht. Aber ich kriege es einfach nicht gebacken. Mit diesen Code habe ich ein bisschen rumexpierentirt

Delphi-Quellcode:

var
  X, Y, A: Integer;
  P0,P1: PByteArray;
  P_Color: integer;
begin
  P_Color:=0;
  for Y := 0 to IMG_1.Height-110 do begin
     P0 := IMG_1.Picture.Bitmap.ScanLine[Y];
     P1 := IMG_2.Picture.Bitmap.ScanLine[Y];
     for X := 0 to IMG_1.Width-1 do begin
      if IntToStr(P0[X]) = IntToStr(P1[x]) then
        begin P_Color:=P_Color+1 end;
     end;
  end;
  //Anzahl der Pixel bestimmen
  A:=Y*X;
  //Prozent der Übereinstimmung errechnen und ausgeben
  MainForm.Caption:=FloatToStrF(100/A*P_Color,ffNumber,100,2);
end;

Danke im Voraus für die Hilfe