Vielen Dank... nur hattest du in BGRToColor einen kleinen Dreher drin, der das Bild ein bisschen gelbstichig macht
Delphi-Quellcode:
function BGRToColor(const BGR : Integer) : TColor;
begin
result := (BGR and $FF000000) + ((BGR and $000000FF) shl 16) + (BGR and $0000FF00) + ((BGR and $00FF0000) shr 16);
end;