Solo tenía que agregar un padre a cada estructura ya hecha. Mientras esperaba una respuesta pude hacer esto en un button:
Código Delphi
[-]
procedure TForm1.TBNuevoClick(Sender: TObject);
var nodo,aux:TTreeNode;
sNombre:string;
begin
sNombre:=inputBox('Etiqueta','Nombre','');
if sNombre <> '' then
begin
tree.items.AddChildFirst(nil,sNombre);
if tree.selected<>nil then
begin
nodo:=tree.Selected;
nodo.MoveTo(tree.items.GetFirstNode,naAddChild);
end;
end;
end;
No se si es la solución mas elegante o la mejor, pero por ahora resuelve mi problema. Muchas gracias por tu ayuda de todos modos!