Обработка нажатий клавиш вверх-вниз

procedure TfmAbProps.edNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = vk_down) and
    not (ssAlt in Shift)
      {// здесь обработка для "выпадающих" окошек типа TRxDBCalcEdit} then
  begin
    Key := 0;
    SelectNext(Sender as TWinControl, true, true);
  end
  else if Key = vk_up then
  begin
    Key := 0;
    SelectNext(Sender as TWinControl, false, true);
  end;
end;

OnKeyDown:=edNameKeyDown 

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;