Bitmaps vergleichen

[TForm1]

Also ich habe jetzt mal eine Modifikation von dem Testcode oben vorgenommen und die BmpA und BmpB jeweils danach noch mal gespeichert.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  BmpA := TBitmap.Create;
  BmpA.LoadFromFile('/Users/home/test1.bmp');
  BmpB := TBitmap.Create;
  BmpB.LoadFromFile('/Users/home/test2.bmp');
  Test(BmpA, BmpB, 40, clGreen);
  BmpA.SaveToFile('/Users/home/test1.bmp');
  BmpB.SaveToFile('/Users/home/testErgebnis.bmp');
end;

Ergebnis ist, dass mit SaveToFile das Bitmap ohne die Veränderungen gespeichert wird, warum auch immer...
Also kann es nur am SaveToFile() liegen.