TBitmap.Pixelformat = pfDevice! Check auf 32Bit ?

[Luckie]

Bisr du sicher, dass es nicht eher an deiner Schleife liegt:

Delphi-Quellcode:

for y := 0 to result.Height-1 do 
                                begin 
                                        ColorSL := result.Scanline[y]; 
                                        MaskSL := mask.ScanLine[y]; 
                                        for x := 0 to result.Width-1 do 
                                                ColorSL^[x].rgbReserved := NOT MaskSL^[x].rgbRed; 
                                end;

Was ist das eigentlich für eine kranke Einrückung mit Tabulatoren?