Помогите разработать компонент

Всем добрый день!

Пытаюсь сделать свой первый (точнее уже второй) VCL компонент, поэтому вопросы может быть кому то покажутся глупыми.

Мне необходимо сделать видоизмененный ListBox в котором прорисовка айтемов будет происходить несколько иначе чем в обычном ListBox.

У ListBox есть событие DrawItem в нем мне и хочется написать код который будет прорисовывать все должным образом.

Я уже проделывал это для обычного ListBox'а и все работало как надо. Теперь захотелось сделать из этого VCL-компонент.

Так вот компонент унаследованный от ListBox я сделал. А вот переопределить DrawItem не получается. Событие Click я переопределил так:

Добавил в .h строку:

public:
DYNAMIC void __fastcall Click(void);

и в .cpp добавил:

void __fastcall TMyListBox::Click(){
ShowMessage("Click");
}

При клике вылетает мессадж. По аналогии пытаюсь переопределить DrawItem:

void __fastcall TMyListBox::DrawItem(TWinControl *Control, int Index,
TRect &Rect, TOwnerDrawState State){
ShowMessage("DrawItem");
}

Только вот этот мессадж не вываливается никогда :-(