Source position: ovcvlb.pas line 89
type TDrawItemEvent = procedure(
Sender: TObject;
Index: LongInt;
Rect: TRect;
const S: string
) of object;