Modificar ancho en un combobox al desplegarse

[[Bicho]]

Simplemente poniendo esto podemos conseguir que un combobox tenga distinto ancho al desplegarse

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
    Ancho: integer;
 begin
   Ancho:=300;
   ComboBox1.Perform(CB_SetDroppedWidth,Ancho,0);
 end;