[ecfisa]

Que extraño...

Con este código:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  ComboBox1.Clear;
  for i := 1 to 100 do
    ComboBox1.Items.Add('Item '+IntToStr(i));
  ComboBox1.AutoDropDown  := True;
  ComboBox1.DropDownCount := 30;
end;

Obtengo este resultado:



Saludos