diff --git a/lcl/valedit.pas b/lcl/valedit.pas
index 159bd015db..df7de2f44d 100644
--- a/lcl/valedit.pas
+++ b/lcl/valedit.pas
@@ -967,6 +967,7 @@ begin
         esPickList: begin
           result := EditorByStyle(cbsPickList);
           (result as TCustomComboBox).Items.Assign(ItemProp.PickList);
+          (result as TCustomComboBox).DropDownCount := DropDownRows;
           //Style := csDropDown, default = csDropDownList;
         end;
       end;