Ik vond het verrassend makkelijk m.b.v. een eigen TreeNode variant ...

TMyTreeNode = class(TTreeNode)
private
  fANewProperty: String;
public
  property ANewProperty: String read fANewProperty write fANewProperty;
end;

We moeten er bij het aanmaken van een nieuwe  node wel voor zorgen dat de treeview het juiste treenode type gaat gebruiken en dat doen we in onCreateNodeClass:

procedure TForm1.TreeView1CreateNodeClass(Sender: TCustomTreeView; var NodeClass: TTreeNodeClass);
begin
  NodeClass := TMyTreeNode;
end;

We kunnen de extra data nu schrijven/lezen met een type cast:

TMyTreeNode(TreeView1.Selected).ANewProperty := 'some text';

Merk op: ik gebruik hier een eenvoudige string, maar je kunt hier hele records aan hangen 😉