[Neftali [Germán.Estévez]]

Básicamente se trata de insertar los hijos sabiendo su correspondiente padre.
Cuando insertas un nodo con AddChild, si no recuerdo mal el parámetro que devuelve la función es el nodo insertado; Debes recogerlo y utilizarlo para insertar los hijos.

A partir de ahí es cuestión de ser ordenado. Pon en un form un TTreeview y un botón y programa ésto en el OnClick:

Código Delphi [-]
 var
   tr, tc, ta, tn, tf:TTreeNode;
 begin
 
   // comenzar
   tr := tv.Items.AddChild(nil, 'RAIZ');
   // Lo hijos de éste, si no tuiene, nada...
   tc := tv.Items.AddChild(tr, 'TClase1');
   // los hijos
   ta := tv.Items.AddChild(tc, 'Atributos');
   // Los hijos de éste
   tv.Items.AddChild(ta, 'Attr1');
   tv.Items.AddChild(ta, 'Attr2');
   // funciones
   tf := tv.Items.AddChild(tc, 'Funciones');
   // hijos
   tv.Items.AddChild(tf, 'Func1');
   tv.Items.AddChild(tf, 'Func2');
   ...
 
   // Lo hijos de éste, si no tuiene, nada...
   tc := tv.Items.AddChild(tr, 'TClase2');
   ...
 
 
   // Expandir
   tr.Expand(True);