Ошибка при создании матрицы (access violation)

[Svejk]

Доброго времени суток, очень надеюсь на вашу помощь, диплом стоит а срок идет.

При попытке заполнения матрицы выскакивает ошибка:

procedure TForm1.btn1Click(Sender: TObject);
var
i,j,m,n,col,row:Integer;
begin
row:=0;
 for j:=0 to 10 do begin
  for i:=0 to 10 do begin
    col:=0;
    for m:=0 to 10 do begin
      for n:=0 to 10 do begin
          MD[row+1,col+1]  := 90000+(1000*m+100*n+10*j+1*i);//m11*alpha_(m,i)*alpha(n,j)+m12*alpha(m,i)*alpha_(n,j);
          MD[row+1,col+2]  := 90000+(1000*m+100*n+10*j+1*i);//-m13*alpha_(m,i)*alpha_(n,j);
          MD[row+1,col+3]  := 90000+(1000*m+100*n+10*j+1*i);//-(m14*gamm_(m,i)*gamm(n,j)+m15*gamm__(m,i)*gamm(n,j));

          MD[row+2,col+1]  := 90000+(1000*m+100*n+10*j+1*i);//-m13*alpha_(m,i)*alpha_(n,j);
          MD[row+2,col+2]  := 90000+(1000*m+100*n+10*j+1*i);//m22*alpha(m,i)*alpha_(n,j) + m23*alpha_(m,i)*alpha(n,j);
          MD[row+2,col+3]  := 90000+(1000*m+100*n+10*j+1*i);//-m24*gamm(m,i)*gamm_(n,j);

          MD[row+3,col+1]  := 90000+(1000*m+100*n+10*j+1*i);//-(m14*gamm_(m,i)*gamm(n,j)+m15*gamm__(m,i)*gamm(n,j));
          MD[row+3,col+2]  := 90000+(1000*m+100*n+10*j+1*i);//-m24*gamm(m,i)*gamm_(n,j);
          MD[row+3,col+3]  := 90000+(1000*m+100*n+10*j+1*i);//m33*lambda(m,i)*lambda(n,j) + m34*lambda__(m,i)*lambda(n,j)+m35*lambda_(m,i)*lambda_(n,j) + m36*lambda(m,i)*lambda__(n,j);

          col := col + 3;
      end;
    end;
    row := row +3;
  end;
 end;
 edt1.Text:=FloatToStr(MD[0,0]);
end;

P.S. 90000+... - для проверки индексов элементов

[Аватар]

А какая размерность MD? Скорее всего выход за пределы. По коду row и col в индексах максимальные будут 360. С учетом еще +3, то размерность должна быть не меньше 1..363,1..363

[Svejk]

размерность была [0.363,0..363] c [1.363,1..363] вроде заработало. Спасибо!)

[Аватар]

Ошибка здесь была

edt1.Text:=FloatToStr(MD[0,0]);