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