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.