Source position: comctrls.pp line 2747
type TTVNodeChangedEvent = procedure(
Sender: TObject;
Node: TTreeNode;
ChangeReason: TTreeNodeChangeReason
) of object;