Source position: colorbox.pas line 45
type TGetColorsEvent = procedure(
Sender: TCustomColorBox;
Items: TStrings
) of object;