預設的TComboBox上下鍵是可以選擇值的，但下拉框預設是隱藏的，只需要上下鍵觸發keydown事件把下拉框顯示出來就OK

程式碼：

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key in [VK_DOWN, VK_UP] then
  begin
    if not ComboBox1.DroppedDown then
    begin
      ComboBox1.DroppedDown := true;
      SendMessage(ComboBox1.Handle, WM_SETCURSOR, 0, 0);
    end;
  end;
end;