Отлавливание нажатий клавиш в своем компоненте

Возвращаясь к подсветке синтаксиса... Решил сделать свой компонент на основе TCustomControl, но у меня не получается отловить в нем нажатие стрелок, компонент при их нажатии просто теряет фокус. Отлавливать пытался так: переопределил ф-ю WndProc:

void __fastcall TTestComp::WndProc(Messages::TMessage &Message)
{
   bool res;
   switch (Message.Msg)
   {
case WM_SETFOCUS:
         res = CreateCaret(this->Handle, NULL, 2, 16);
         res = ShowCaret(this->Handle);
         break;
      case WM_KILLFOCUS:
         res = DestroyCaret();
         break;
         case WM_KEYDOWN:
         Message.WParam = 0;
         return;
   }
   TControl::WndProc(Message);
}


Стрелки и табуляция не ловятся. Как можно решить эту проблему?
Заранее спасибо.