[ecfisa]

Hola Daniel.

Empezado por DANIEL1818

Si pongo ese codigo el mensaje que me aparece es : Bicicleta.

Con respecto al programita que me pasaste le agregue un edit y un TButton y al onClick del Tbutton le puse el siguiente codigo:

Código Delphi [-]
Edit1.Text:=ComboBox1.Items.text;   //le pido el item ue esta seleccionado en ese momento

y el resultado en el edit es:

ArgentinaBrazilColombiaMexicoUnited States of America
...

¡ Con razón, ahora si me lo explico !

La propiedad TComboBox.Items.Text no contiene el item seleccionado en ese momento sino el grupo de cadenas delimitadas por CR y LF y que conforman el conjunto de items del combo.

Has confundido la propiedad TComboBox.Text que el combo hereda de la clase TControl y que contiene el texto asociado al control, con la propiedad TComboBox.Items.Text que pertenece la clase TStrings.

Para obtener el item actualmente seleccionado podes hacer:

Código Delphi [-]
   Edit1.Text := ComboBox1.Text;

o de otro modo, mediante la propiedad ItemIndex:

Código Delphi [-]
   Edit1.Text := ComboBox1.Items[ComboBox1.ItemIndex];

Pero de ninguna manera:

Código Delphi [-]
 Edit1.Text := ComboBox1.Items.Text;

Saludos