Hab da mal ne Lösung hinbekommen ist aber nicht sonderlich schön sag ich mal
Delphi-Quellcode:
if StrToInt(ComboBox2.Text) >18 then ComboBox2.ItemIndex:=5;
nachkomma:=ComboBox2.ItemIndex;
Aber ich glaube das passt zum restlichen Quellcode, der ist auch ich glaube sehr verworren.
Also meine Kunden würden einfach in die ComboBox "drei" reinschreiben und sich dann über eine Fehlermeldung wundern
