Как перехватить нажатия функциональных клавиш и стрелок?

Code:

OnKeyDown:=edNameKeyDown

Code:

procedure TfmAbProps.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if (ActiveControl is TRxDBLookupCombo) then

begin

   if Key = vk_down then

   begin

     if not (ssAlt in Shift) and not

       // здесь нельзя обработать нажатие при вызове "выпадающего"

     (ActiveControl as TRxDBLookupCombo).IsDropDown then

     begin // и в случае уже "выпвшего"

       Key := 0;

       selectnext(ActiveControl, true, true);

     end;

   end

   else if Key = vk_up then

   begin

     if not (ActiveControl as TRxDBLookupCombo).IsDropDown then

     begin

       Key := 0;

       selectnext(ActiveControl, false, true);

     end;

   end;

end;

end;