Drag&Drop в TreeView

Имеется дерево TreeView1. Необходимо при помощи drag&drop взять один узел дерева и перенести его на другой. И например сделать Text этого узла равным взятому.Но как определить DropTarget. Пробовал использовать это свойство в обработчике OnEndDrag

void __fastcall TForm1::TreeView1EndDrag(TObject *Sender,
TObject *Target, int X, int Y)
{
TreeView1->DropTarget->Text=TreeView1->Selected->Text;
}

все работает но если добавить еще один обработчик OnDragOver

void __fastcall TForm1::TreeView1DragOver(TObject *Sender,
TObject *Source, int X, int Y, TDragState State, bool &Accept)
{
int i=0;
}

то в предыдущем почему-то DropTarget становится всегда равным NULL.
А без OnDragOver иконка курсора такая будто перенос узла невозможен.

Если кто знает подскажите почему так происходит?