[crazyman]

Всем привет! Добавляю чекбоксы в групбокс. Подскажите можно ли как-то добавить их в виде двумерного массива (мне нужно разместить 200 чекбоксов по 20 в строке из 10 строк). Кусок моего кода.

Код:

...
var
  FPass: TFPass;
  NChB: TCheckBox;

...

procedure TFPass.FormCreate(Sender: TObject);
var i:integer;
NChB: Array of TCheckBox;
begin
SetLength(NChB,i+1);
SetLength(NChB,j+1);
for i := 0 to 19 do
begin
NChB[i] := TCheckBox.Create(GroupBox2);
NChB[i].Top:=80;
NChB[i].Left:= 220+(i*35);
NChB[i].Parent:=GroupBox2;
NChB[i].Name:='NChB'+IntToStr(i+1);
NChB[i].Caption:=IntToStr(i+1);
NChB[i].Visible:=True;
NChB[i].BringToFront;
end;