void __fastcall TMainForm::TreeViewDragOver(TObject *Sender,
      TObject *Source, int X, int Y, TDragState State, bool &Accept)
{
        if(dynamic_cast<TListView *>(Source) == NULL) return;
        Accept = true;

        //이렇게 하니까 드래그는 되는군요
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::TreeViewDragDrop(TObject *Sender,
      TObject *Source, int X, int Y)
{
//       if(dynamic_cast<TListView *>(Source) == NULL) return;
//     SendMessage(TreeView->Handle, LVM_SETITEMPOSITION, TreeView->ItemFocused->Index,     MAKELPARAM(X, Y));

     if(dynamic_cast<TListView *>(Source))
           dynamic_cast<TListView *>(Source)->Parent = this;
}

이곳저곳에서 찾았는데 List뷰에 관한건 많은데 트리에 관한건 별로 없는거 같습니다.
어떻게 해야 될까요??