Первый чекбокс в массиве не скрывается при обращении в цикле

[Kronos913]

Есть массив чекбоксов

var CheckBoxA: array [1..CBF] of TCheckBox;

CBF - константа, чтобы удобнее было расширять программу

Цикл их создания:

 for i:=1 to CBF do begin
  CheckBoxA[i]:=TCheckBox.Create(self);
  with CheckBoxA[i] do begin
   Parent:=Panel8;
   Width:=145;
   Height:=17;
   Left:=264;
   Top:=93+(18*i);
   Caption:=CBF1[i]; {CBF1 - массив со строками - именами}
   visible:=true;
   checked:=true;
  end;
end;

И есть еще один чекбокс, который должен их "погасить"

 for i:=1 to CBF do begin
  CheckBoxA[i].Visible:=CheckBox8.Checked;
 end;

Вот только возникает одна проблема: первый элемент массива отказывается "гасится". Но только первый, с остальными все норм
При чем мало того, что этот цикл его не хочет "гасить", так еще и если просто взять добавить дополнительную кнопку на форму и прописать, эта кнопка не работает - нажимает и никакого эффекта

CheckBoxA[1].Visible:=false

Кто-то может подсказать, в чем проблема?

[Kronos913]

CheckBoxA[1] игнорирует любые попытки воздействовать на него из программы.
Ради эксперимента попробовал сделать вот так:

 for i:=1 to CBF do begin
  CheckBoxA[i]..Checked:=CheckBox8.Checked;
 end;

Итог: от нажатия на CheckBoxA[1] - он активируется и дезактивируется нормально

Но вот если через цикл - снова, на него не действует ничего
При том что с остальными элементами все норм, цикл меняет им значения

[Kronos913]

Хм... Сделал вот так

var CheckBoxA: array [0..CBF] of TCheckBox;

При этом, 0 элементом никто не пользуется, он даже не создается. Остальной код оставил весь без изменения: используются только элементы начиная с номера 1
И все заработало

Ок, проблему то решил... Но "кустарным методом", который занимает лишнюю память. Все же надо разобраться, в чем проблема изначально

[beegl]

немножко похоже на "Циклический опрос компонентов":

procedure TForm1.FormCreate(Sender: TObject);
var
  I: integer;
begin
  for I:= 0 to ComponentCount -1 do
    if (Components[I] IS TEdit) then
      (Components[I] AS TEdit).{Вашпараметр} := {ваше значение};
end;

[BDA]

Kronos913, добавил ваш код из 1 сообщения в пустой проект - всё нормально исчезает и появляется. Может быть, выложите проект целиком, убрав ненужные части, но оставив неверное поведение? И второй вопрос - почему не скрывать саму панель-родитель сразу со всеми чекбоксами?