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;