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