Para añadir un elemento raiz puedes hacer lo siguiente (importante que "recojas" el nodo añadido para luego usarlo en los hijos...)
var
node:TTreeNode;
...
node := TreeView1.Items.AddFirst(nil, 'Nodo Raiz');
Para añadir "hijos a éste nodo":
node := TreeView1.Items.AddChild(node, 'Primer Hijo');
node := TreeView1.Items.AddChild(node, 'Segundo hijo');
...
Este codigo no me acuerdo donde lo vi pero te ´puede servir
procedure TForm1.Button1Click(Sender: TObject);
var
SR: TSearchRec;
root:TTreeNode;
i: integer;
begin
i := 1;
// buscar el primer elemento
FindFirst('c:\winnt\*.*', faDirectory, SR);
// Añladir el raiz
root := TreeView1.Items.AddFirst(nil, 'c:\winnt\');
// Mientras encuentre elementos, repetir
repeat
// Es un directorio (ficheros NO)
if (SR.Attr and faDirectory) <> 0 then begin
// Añadirlo como hijo de root
TreeView1.Items.AddChild(root, SR.Name);
i := i + 1; { increment index }
end;
// ...mientras encuentre elementos
until FindNext(sr) <> 0;
// Expandir el nodo root
root.Expand(True);
end;
Compañero siguenos escribiendo, cuentale a tus amigos y ayudanos a responder cuando te seintas capas, estamos reclutando gente, garcias
aqui casi siempre estare yo para ayudar 
