Du musst TTreeView.OnCreateNodeClass setzen und darin deine TTreeNodeSubclass als Klasse zurückgeben.
Noch was:
Delphi-Quellcode:
TTreeNode = class(ComCtrls.TTreeNode)
private
{ Private declarations }
ShouldExpand : Boolean;
end;
So solltest du es nicht machen, denke dir einen neuen Namen aus.