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.