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

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

...

procedure TMyControl.WMGetDlgCode(var Msg : TMessage);
begin
  Msg.Result := DLGC_WANTARROWS;
end;