Source position: comctrls.pp line 2618
type TTVCreateNodeClassEvent = procedure(
Sender: TCustomTreeView;
var NodeClass: TTreeNodeClass
) of object;