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