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