if ComboBox1.ItemIndex + 1 < ComboBox1.Items.Count then ComboBox1.ItemIndex := ComboBox1.ItemIndex + 1;