La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  307 - MANEJO DE TREEVIEW/TREENODE EN DELPHI 3
Autor:  Gonzalo
Necesito saber como anexar un Item a un nodo ya construido por programación y en tiempo de ejecución del programa.
  Respuesta:  Ariel Principi
Algo asi:

Crear el arbol con un nodo inicial llamado: 'NODO_INICIAL'

Añadir de la paleta de componentes un treeview.

Escribir en el codigo de un boton:

TreeView1.Items.AddChild(nil,'NODO_INICIAL')

Crear un Hijo (Nodo_Hijo) asi: por ej:

TreeView1.Items.AddChild(TreeView1.Items.AddChild(nil,'NODO_INICIAL'),'NODO_INICIAL')

Le añade al nodo inicial el Nodo_Hijo
  Respuesta:  Adolfo
Te puedo prestar ayuda usando el SDK de Windows. Escribeme y te mandare código.
  Respuesta:  Jorge
Hola, pues debes usar el metodo Items.AddChild. Mira este código coge los items de un Dbcombox (se puede usar otro componente que tenga las propiedad tStrings) y crea una estructura.
{Este procedimiento Lee Los datos del dbComboBox1, que es el que tiene todos temas disponibles y crea la estructrua del arbol.}
Procedure TForm1.Estructura;
Var
x : integer;
Raiz : TTreeNode;
Begin
With DbComboBox1 Do
Begin
Raiz := TreeView1.Items.Add (TreeView1.Selected,´Todos´);
For x := 0 To Items.Count-1 Do
Begin
TreeView1.Items.AddChild (Raiz,Items[x]);
end;
TreeView1.FullExpand;
End;
TreeView1.Selected := Raiz;
StatusBar1.Panels[0].Text := ´Tema:Todos´;
End;