[Norw]

Код:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
for i:=1 to 8 do
  if mizm[8,i]=1 then
       for j:=1 to 16 do
       begin
        i1:=inttostr(i);
        j1:=inttostr(j);
        if mizm[i,j]=1 then
            with TPanel(FindComponent('p'+i1+j1)) do
              begin
              Color := clYellow;
              BevelInner := bvLowered;
              end
           else
             with TPanel(FindComponent('p'+i1+j1))do
              begin
               Color := clbtnface;
               BevelInner := bvraised;
              end;
       end;

end;

вот получившийся вариант действия по событию, он компилируется, но если мы вносим в массив mizm числа :

Код:

procedure TForm2.P11Click(Sender: TObject);
begin
mizm[1,1]:=1;
mizm[7,15]:=1;
mizm[7,16]:=1;
mizm[6,6]:=1;
mizm[8,1]:=1;
mizm[8,6]:=1;
mizm[8,7]:=1;

end;

то выдаеться ошибка : проект вызвал исключение класса EAccessViolation....

Что делать???