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;
...

спсибо.

Ты создаешь CheckBox-ы в Run-Time? Или в Design-Time?

Если в RunTime, то очень удобно в свойство Tag записать при создании номер, а потом в элемент массива с этим номером сохранять значение Checked... В Design-Time с этим больше мороки, надо всем чекбоксам вручную значение Tag присваивать...

в Design-Time, спасибо.