kasowanie w treeview i przesuniecie itemow

ja mozna usunac zaznaczony element a jego subitemy przeniesc do gory.
np.
z czegos tskiego:

-root
 -nazwa
  -nazwa1
  -nazwa2
  -nazwa3
-root

otryzmac

-root
 -nazwa1
 -nazwa2
 -nazwa3
-root

procedure TForm1.Button1Click(Sender: TObject);
var
  x: integer;
begin
  x := 0;
  while x <= TreeView1.Items.Item[0].Item[0].Count -1 do
    begin
      TreeView1.Items.Item[0].Item[0].Item[x].MoveTo(TreeView1.Items.Item[0].Item[0],naAdd);
    end;
  TreeView1.Items.Item[0].Item[0].Delete;
end;

nudziło mi sie to zrobiłem coś bardziej uniwersalnego:

procedure WGore(Node: TTreeNode);
var
  x: integer;
begin
  x := 0;
  while x <= Node.Count -1 do
    begin
      Node.Item[x].MoveTo(Node,naAdd);
    end;
  Node.Delete;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WGore(TreeView1.Selected);
end;

dzieki bardzo i to mi chodzilo.kombinowalem samemu ale przesuwalo mi to w odwrotnej kolejnosci