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