In meinem InitNode-Event steht eine Zeile.
Delphi-Quellcode:
procedure TKSListEvents.InitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
begin
Node.SetData<TKSData>(KSData[Node.Index]);
end;
TKSData ist die Klassenimplementierung mit Gettern und Settern von der die Klasseninstanzen erstellt werden die dann in meine ObjectList kommen.
KSData ist die angesprochene generic TKSData ObjectList.