[[duilioisola]]

Código Delphi [-]
var
  NodoNivel, Nodo : TreeNode;
begin
  with TreeView1.Items do
  begin
     // Creo el nodo "padre"
     NodoNivel := Add(nil, 'Nivel1');
     // Recorro nodos del nivel 1
     FDQnd1.Close;
     FDQnd1.SQL.Text:=('select * from public.estruc_nvl1');
     FDQnd1.Open();
     begin
       // Creo Nodo colgando del NodoNivel.
       Nodo := AddChild(NodoNivel, FDQnd1.FieldByName('Departamento').AsString);

       // Aqui puedo tocar cosas del nodo recien creado.
       Nodo.ImageIndex := -1;

       FDQnd1.Next;
     end

     // Creo el nodo "padre"
     NodoNivel := Add(nil, 'Nivel2');
     // Recorro nodos del nivel 2
     {...}

   
     // Creo el nodo "padre"
     NodoNivel := Add(nil, 'Nivel3');
     // Recorro nodos del nivel 3
     {...}

  end;
end;