Foros Club Delphi - Como redimensionar el desplegable de un combo

En realidad esta no es una pregunta, sino la solucion.
Muchas veces me encuentro con que el texto a seleccionar de un combo es mayor que el ancho del mismo y el combo no se puede hacer más grande.
Para poder leer lo que hay dentro se puede redimensionar el ancho del desplegable en el evento ComboDropDown sin tocar el Width del combo y con una sola instruccion.

Quizas a alguien le pueda servir.

Probar el codigo en un combo de Width=50 y vereis.

Código:

procedure ZZZ.ComboZZZComboDropDown(Sender: TObject);

begin

  //Redimensionamos la longitud del despleglable del combo

  cbNaturalezaCombo.Perform(CB_SETDROPPEDWIDTH, 300, 0);

end;TObject);