Source position: ovcvlb.pas line 85
type TCharToItemEvent = procedure(
Sender: TObject;
Ch: char;
var Index: LongInt
) of object;