Crear TreeView desde Cero

[[AzidRain]]

Código Delphi [-]
Procedure TForm1.Button1Click(Sender: TObject);

var
  MyTreeNode1, MyTreeNode2: TTreeNode;
begin
  with TreeView1.Items do
  begin
    Clear; { Quitar todos los nodos}
    MyTreeNode1 := Add(nil, 'Nodo raiz'); { Agregar un nodo raiz }

    { Agregar un nodo hijo al nodo que acabos de hacer}
    AddChild(MyTreeNode1,'Nodo Hijo 1');

    {Agregar otro nodo raiz}
    MyTreeNode2 := Add(MyTreeNode1, 'Nodo Raiz 2');

    {Agregar otor hijo al nodo anterior }
    AddChild(MyTreeNode2,'Nodo hijo 2');

    
    {Agregar otor nodo raiz}
    Add(MyTreeNode1, 'Nodo raiz 3');
  end;

end;

Y aqui tienes un buen de articulos sobre TTreeview con ejemplos:
http://delphi.about.com/b/a/009212.htm