Source position: comctrls.pp line 1286
type TLVEditedEvent = procedure(
Sender: TObject;
Item: TListItem;
var AValue: string
) of object;