Переопределение событий

в h файле:
TDragOverEvent     m_pOldDragOver;
в констукторе компонента:
m_pOldDragOver=this->OnDragOver;
this->onDragOver=this->smDragOver;

void __fastcall TsmTreeView::smDragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept)
{
// вызываю сохраненный адрес
if (this->m_pOldDragOver)
        this->m_pOldDragOver(Sender,Source,X,Y,State,Accept);
// своя обработка
TTreeNode *node;
bool test;
AnsiString str;
TcxDragControlObject * DragObject;
DragObject = dynamic_cast<TcxDragControlObject*>(Source);
if(Sender->ClassNameIs("TsmTreeView")&& dynamic_cast<TsmTreeView *>(DragObject->Control)==this ) {
    node=this->GetNodeAt(X, Y);
    if (node!=NULL && node!=ddNode && ddNode->IndexOf(node)==-1) {
     ddTarget=node;
     Accept=true;
    }
    else {
     ddTarget=NULL;
     Accept = false;
    }
 }
else {
       ddTarget=NULL;
       Accept = false;
   }
}