[VINCENT]

все правильно делаешь.
вот тебе код для проверки

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ball:=0 ;
  If (CheckListBox1.Checked[0] = true) and (CheckListBox1.Checked[1] = true) then
  begin
    ball:=ball+2;
    Edit1.Text:= inttostr(ball);
  end
  else
  begin
    ball:=ball;
    Edit1.Text:= inttostr(ball);
  end;
end;

может тупишь ?
смтотри окуда индекс начинается с 0