Source position: ovcvlb.pas line 113
type TSelectEvent = procedure(
Sender: TObject;
Index: LongInt;
Selected: Boolean
) of object;