delphi treeview 节点移动的问题？

Question

NowNode.MoveTo(NowNode.getPrevSibling,naInsert);
用上面这句上移没有问题，用下面这句进行下移的话会把当前所选的移动到最下面，这个不对的，我要移动一级，不是移动到最下面。
NowNode.MoveTo(NowNode.getNextSibling,naAdd);
麻烦老师给个正确的例子代码谢谢。

Answer 1

v_SelectNode.MoveTo(v_TargetNode, AttachMode);