TdxColorGetCustomColorSetEvent = procedure(Sender: TObject; var ASet: TColors) of object;