Source position: colorbox.pas line 151
type TLBGetColorsEvent = procedure(
Sender: TCustomColorListBox;
Items: TStrings
) of object;