Source position: comctrls.pp line 1779
type TTVChangedEvent = procedure(
Sender: TObject;
Node: TTreeNode
) of object;