Creates palette with given bitcount for each channel.

procedure FillCustomPalette(Pal: PPalette32; 
                            Entries: LongInt; 
                            RBits: Byte; 
                            GBits: Byte; 
                            BBits: Byte; 
                            Alpha: Byte = $FF);

Imaging (at line 277)

2^(RBits + GBits + BBits) should be equl to Entries. Examples: (3, 3, 2) will create palette with all possible colors of R3G3B2 format and (8, 0, 0) will create palette with 256 shades of red. Pal must be allocated to at least Entries * SizeOf(TColor32Rec) bytes.