TCheckBox[x].Checked = Подсчет количества Checked := True;

[XerSon]

var
I: Integer;
begin 
 with Form1 do
    for I := 0 to ControlCount - 1 do
      if (Controls[I] is TCheckBox) then
      begin
        if (Controls[I] as TCheckBox).Checked then
          ProgressBar1.Position := ProgressBar1.Position + I
      end;
end;

Собственно сабж.

[Аватар]

И что? Можно было бы и одним if-ом обойтись. Или не видит чекбоксы расположенные, например, на панели?

[XerSon]

Панель не юзаю, все лежит на форме. Не видит.
Затея такая,
есть X-чекбоксов, при выборе оного, выполняем некую функцию, в прогрессбаре отображаем прогресс, и так далеее
выбрали к примеру 4 чекбокса, прогрессбар.макс = 4

[Аватар]

А OnClick чекбокса меняй значение ProgressBar1.Position на +1 или -1 в зависимости от состояния чекбокса

[northener]

Сообщение от XerSon

Панель не юзаю, все лежит на форме. Не видит.

А что "все" лежит на форме? Панель Аватар привел только в качестве примера. Вместо панели можно было упомянуть например TGroupBox, что весьма вероятно.
Но вообще совет Аватар из сообщения #4 самый правильный. Если прогрессбар зависит от состояния неких чекбоксов, то менять его позицию лучше/грамотнее менять именно в событии OnClick чекбокса.

[min@y™]

TCheckGroup не подойдёт ли?

[XerSon]

Только не пинайте
Не красиво (+1) но работает %)
Мысль мне понятна, реализация избыточна, что есть то есть.