Source position: ovcvlb.pas line 93
type TGetItemEvent = procedure(
Sender: TObject;
Index: LongInt;
var ItemString: string
) of object;