Problem mit ComboBox.Text im OnChange Event

[Angel4585]

Hallo zusammen,

Ich Habe in einer ComboBox die Items : A,B,C,D,E und möchte wenn ich eins davon ausgewählt habe jeweils 1,2,3,4,5(Die Zahlen stehen nur symbolisch für irgendwelche Wörter) anzeigen lassen,

d.h. ich schreibe im OnChange

Delphi-Quellcode:

case ComboBox.Itemindex of
 0: ComboBox.Text:='1'; 
 1: ComboBox.Text:='2';
 2: ComboBox.Text:='3';
 3: ComboBox.Text:='4';
 4: ComboBox.Text:='5'; 
 end;

Allerdings wird danach auf einmal der Text wieder zurück auf A,B,C,D bzw. E gesetzt.

Habe jetzt einen Timer genommen der den Wert nach 20 ms in die ComboBox schreibt, find es allerdings etwas...naja nicht ganz sooo schön. Weis jemand wie ich das in dem OnChange Ereignis reinschreiben kann?

Danke schonmal