Перехват курсорных клавиш

procedure
 WMGetDlgCode(var
 Msg : TMessage); message
 WM_GETDLGCODE;

...

procedure
 TMyControl.WMGetDlgCode(var
 Msg : TMessage);
begin

  Msg.Result := DLGC_WANTARROWS;
end
;

Другое по теме:

• Эмуляция нажатия клавиш
• Установка ловушки для клавиатуры
• Убрать программу из списка Ctrl+Alt+Delete