If (CheckListBox1.Checked[1]=true) and (CheckListBox1.Checked[2]=true) then ball:=ball+2 else ball:=ball;