Работа с компонентми формы в цикле Опции

[klem4]

 j := 0;
for i := 0 to ComponentCount - 1 do
 if  components[i] is TCheckBox then
  with (components[i] as TCheckBox) do begin
     inc(j);
     new.d[j] := Checked;
  end;

Скорее всего в таком случае значение j не будет совпадать со значение номера компоненты TCheckBox и лучьше делать вручную ?

Мне нужно следующее

d[1] := CheckBox1.Checked;
d[2] := CheckBox2.Checked;
...

спсибо.