Source position: comctrls.pp line 1785
type TTVEditedEvent = procedure(
Sender: TObject;
Node: TTreeNode;
var S: String
) of object;