Jedes TTreeNode hat eine Eigenschaft Namens Data und dieses ist ein einfacher Pointer.
Du legst also einen Record mit den gewünschten Daten und kannst dann inen Pointer darauf in Data abspeichern.
Type erstellen;
Delphi-Quellcode:
Type TRecord = Redord
Scope: ...;
Typ: ...;
Anzahl: ...;
...
End;
PRecord = ^TRecord;
Und Daten in den Knoten einzutragen:
Delphi-Quellcode:
TreeNode.Data := GetMem(SizeOfTRecord);
PRecord(TreeNode.Data)^.scope := ...;
...
Zugreifen kannst du natürlich auch ganz einfach:
... := PRecord(TreeNode.Data)^.scope
Und nicht vergessen, du ußt natürlich auch selber dafür sorgen, daß am Ende alles wieder freigegeben wird
FreeMem(TreeNode.Data);