다음은 하나의 TreeView내에서 항목간 이동하는 예제입니다..
참고하세여.. 그럼.. 즐프~

void __fastcall TForm1::TreeView1DragDrop(TObject *Sender,TObject *Source, int X, int Y)
{
  TNodeAttachMode    attachMode;
  TTreeNode *destNode, *selNode;
   
  if(Source->ClassNameIs("TTreeView") && Sender->ClassNameIs("TTreeView")) {
    destNode = TreeView1->GetNodeAt(X, Y);    // destinataion node
    selNode = TreeView1->Selected;             // selected node

    if(!destNode) return;
    if(selNode == destNode) {
        Application->MessageBox("같은 곳으로는 이동할 수 없습니다.", "Error",
                                           MB_ICONERROR|MB_OK);
        return;
    }

    attachMode = naInsert;        // Insert the node before the destination node.
    selNode->MoveTo(destNode, attachMode);

    TreeView1->FullExpand();
  }

}