@Amateurprofi:
Danke, dass Du Dich der Sache noch mal angenommen hast. Allerdings stimmt das Ergebnis immer noch nicht.
Falls Du die Sache noch weiter verfolgen willst, kannst Du hier im Thread-Beitrag Nr. 26 das Demoprojekt laden, das ich gepostet habe.
Da brauchst Du nur im Button-Click Event folgendes zu machen, um Deine Procedure einzubinden:
Delphi-Quellcode:
for L := 1 to count do begin
AsmDraw32BitToBitmap (b, b3);
//Draw32BitToBitmapnew (b, b3);
end;
Dann Siehst Du direkt im Vergleich, ob beide Bilder den gleichen Inhalt haben.