Source position: tachartlistbox.pas line 43
type TChartListboxIndexEvent = procedure(
ASender: TObject;
AIndex: Integer
) of object;