[harpo]

Tienes toda la razón.

Queda así:

procedure TfrArbolSelec.AnadirNodo (Nodo:TTreeNode;Padre:TTreeNode;Path:String);
var
  i        :integer;
  NodoPadre:TTreeNode;
begin
    Nodo.Expand(false);

    if Nodo.HasChildren then // si es un directorio
    begin
      NodoPadre := TVSeleccionados.Items.AddChild(Padre,Nodo.Text);
      for i:= 0 to Nodo.Count-1 do
        AnadirNodo(Nodo.Item[i],NodoPadre,Path + '\' + Nodo.Text);
    end
    else
    begin
      TVSeleccionados.Items.AddChild(Padre,Nodo.Text);
    end;

    Nodo.Collapse(false);
end;

Muchas Gracias