Zitat:
if (i = ListBox2.Items.Count -1) or ((StrToInt(ComboBox2.Text) <> 0) and (StrToInt(ComboBox2.Text) = h)) then
Wobei man hier noch etwas kürzen und eine Stringoperation loswerden kann
if (i = ListBox2.Items.Count - 1) or ((h <> 0) and (StrToInt(ComboBox2.Text) = h)) then