Не перехватываются события OnExit и OnEnter

Создаю класс TExtEdit на базе ТЕdit.
В нем переопределяю обработчики событий OnExit, OnEnter и DblClick.
Динамически размещаю массив текстовых полей класса TExtEdit на TScrollBox.

Событие DblClick в классе TExtEdit перехватывается, а OnExit, OnEnter нет.

Если размещать элемент Edit на ScrollBox в ручную, события OnExit, OnEnter им перехватываються.


Вот класс TextEdit:
Заголовочный файл:

#include <Classes.hpp>
#include <Controls.hpp>

class TExtEdit : public TEdit
{
public:
__fastcall TExtEdit(TComponent* Owner);
private:
DYNAMIC void __fastcall Exit(void);
DYNAMIC void __fastcall Enter(void);
DYNAMIC void __fastcall DblClick(void);
protected:
};

Файл реализации:

#include <vcl.h>
#include &quot;TExtEdit.h&quot;
//----------------------------------------------------------------------------
__fastcall TExtEdit::TExtEdit(TComponent* Owner) : TEdit(Owner)
{
}
//----------------------------------------------------------------------------
void __fastcall TExtEdit::Exit(void)
{
ShowMessage(&quot;OnExit&quot;);
}
//----------------------------------------------------------------------------
void __fastcall TExtEdit::Enter(void)
{
ShowMessage(&quot;OnEnter&quot;);
}
//----------------------------------------------------------------------------
void __fastcall TExtEdit::DblClick(void)
{
ShowMessage(&quot;DBClick&quot;);
}


Массив текстовых полей на TscrollBox создаю так:

Заголовочный файл формы::

class TExtEdit;

typedef vector<TExtEdit*> tagArEdit;
typedef tagArEdit::iterator tagIterEdt;
……..
public:
tagArEdit ArrayEditInd;
……..

файл реализации формы:

……..
//Задаем длину массива
const int size = DM->DS1->RecordCount;
ArrayEditInd.resize(size);

//Создаем массив текстовых полей
for(begEdt = ArrayEditInd.begin(), endEdt = ArrayEditInd.end(); begEdt != endEdt; ++begEdt)
{ *begEdt = new TExtEdit((TComponent*)NULL);
(*begEdt)->Parent = ScrollBox1;
}
....