Source position: ovcvlb.pas line 101
type TGetItemStatusEvent = procedure(
Sender: TObject;
Index: LongInt;
var Protect: Boolean
) of object;