Цикл и CheckBox'ы

[СиДжей]

Если подобный вопрос уже был - не бейте ногами, я новичок.
Идея цикла такова - есть двадцать Checkbox'ов, надо проверить сколько из них Checked и получить число "чекнутых" в переменную d.
Вот отрывок кода, компилятор ругается.
Подскажите как реализовать.

for i:= 1 to 20 do
if Checkbox[i].Checked=true then d:=d+1;
end;

[Скандербег]

А что, в проге есть массив Checkbox, хранящий ссылки на двадцать CheckBox'ов? Судя по "ругани", такового нет. Тогда как они называются все эти 20 компонентов?

[СиДжей]

А как через массив реализовать это?
Они называются Checkbox1, Checkbox2, ..., Checkbox20.

[Скандербег]

Можно не организовывать, а просканировать все компоненты на форме и отобрать только CheckBox'ы.

  for I := 0 to Form1.ComponentCount-1 do begin
    if (Form1.components[I] is TCheckBox) and TCheckBox(Form1.components[I]).Checked 
    then 
      Inc(d);

[СиДжей]

Спасибо за совет

[Небесный]

Можно еще попробовать данный код реализовать вот так.

for i:= 1 to 20 do
if (FindComponent('Checkbox'+IntToStr(i)) as TCheckBox).Checked = true then d:=d+1;
end;

А, ругается, потому что нельзя записывать вот так - Checkbox[i]

Вот быстренько накинул, как можно. )))

procedure TForm1.Button1Click(Sender: TObject);
var
  i,d: integer;
begin
  d:=0;
  for i:= 1 to 5 do
    if (FindComponent('Checkbox'+IntToStr(i)) as TCheckBox).Checked = true
      then d:=d+1;
  Edit1.Text:=IntToStr(d);
end;