[Alegun]

Это перемещение вверх, а вниз наверное так

Код:

with TreeView1.Selected.GetNextSibling do 
  MoveTo(GetPrevSibling, naInsert);