Treeview的节点怎么同级移动啊？谢谢

Question

1
 aaaa
 bbbb
2
 cccc
 dddd
 eeee我想把eeee移动到cccc的前面，怎么处理呢？我的代码
SubNode :=  TV1.Items[i]
subnode.MoveTo(subnode.Parent ,naAddChildFirst)但是效果不对，移到根去了

Answer 1

   node:=TreeView1.Selected.getPrevSibling;
   if node=nil then exit;
  Treeview1.Selected.MoveTo(Node,naInsert);
这是同级向上移

Answer 2

   node:=TreeView1.Selected.getPrevSibling;
   if node=nil then exit;
   Treeview1.Selected.MoveTo(Node,naInsert);
同父上移   node:=TreeView1.Selected.getNextSibling;
   if node=nil then exit;
   node.MoveTo(Treeview1.Selected ,naInsert);
同父下移 完全可用，
到想一步就跑到最前面当带头大哥，可以用
subnode.MoveTo(subnode.Parent.getFirstChild ,naInsert);