Source position: comctrls.pp line 1804
type TTVCustomCreateNodeEvent = procedure(
Sender: TCustomTreeView;
var ATreeNode: TTreeNode
) of object;