Delphi - Agregar Item y Sub Item en un TreeView

Alguien me podria decir como agregar Items y Sub Items en un TreeView atravez de codigo......

Saludos......

debes declarar un par (o los que necesites) de nodos para tu TreeView

Nodo1, Nodo2: TTreeNode;

//para agregar el padre

Nodo1 := Treeview1.Items.Add(nil, 'Hola');
//tratemos de entender, en el primer parametro de Add use nil para
//indicar que no habra nada "arriba", es decir, es de primer nivel, y en el
//segundo use la cadena que se mostrará en tu treeview

//para el hijo

Nodo2:= TreeView1.Items.AddChild(Nodo1 {depende de este nodo}, 'Mundo!');

//nodo2 depende de nodo1, asi que nodo1, es padre de nodo2, nodo2 es subitem del item nodo1, el segundo parametro es para dar la cadena que aparecerá en el treeview

espero esto te sirva

Saludos

Claro que si muchas gracias por responder.

Saludos....