Nach laaaaaangem Suchen habe ich wohl die Lösung gefunden: Man muss bei der Bitmap noch mal explizit des Pixelformat setzen:
Delphi-Quellcode:
if Assigned(BM) then begin
BM.Width := SourceWidth;
BM.Height := SourceHeight;
BM.Canvas.Draw(0, 0, WICImage);
BM.PixelFormat := pf24bit; <-- mus nach dem Draw erfolgen
end;
"To avoid this try to create DIB instead of TBitmap, or try to change Pixelformat to pf24bit. This will tell system to create Bitmap in user's memory instead of
GDI buffer."
https://stackoverflow.com/questions/...tmap-on-delphi