delphi treeview 节点移动的问题？

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

v_SelectNode.MoveTo(v_TargetNode, AttachMode);

我也遇到这个问题了，想了半天，最后解决了。
上移：
treev.Selected.MoveTo(trees.Selected.getPrevSibling,naInsert);
下移：
treev.Selected.GetNext.MoveTo(trees.Selected,naInsert);
当前节点下移，就是把下一个节点上移……
验证可行，算是取巧的方法。