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.