Из StringGrid в Массив (Arr[i,j])

[Jil]

Привет ребята. Прошу Вашей помощи.

Делаю лабораторную. Завтра показывать. Все получилось....Решил оптимизировать код программы, упростить....И уже 5 часов не могу вернуть как было. Если не затруднит посмотрите код.

Выдает ошибку при нажатии на кнопку: "" is not valid integer value. Однако если задать массив "равносторонний", например 5х5 или 14х14 - то как бы работает. В программе идет сдвиг на 1 строку и 1 столбец - так как они используются для нумерации строк и столбцов...что-то типа Excel.

Вложение: Проект с файлами.

Если можно подправьте в данном тексте программы. За ранее Благодарен.

procedure TForm1.Button1Click(Sender: TObject);
var
  n,m,i,j:Integer;
  Arr:array of array of Integer;
  ExApp,ExBook,ExSheet:Variant;
  S,R,Col,Col1,Col2,Row,Row1,Row2:Integer;
  FileName:String;
  min,max,minj,minI,maxI,maxj:Integer;

////////////////////////////////////////////////////////////////////////////////

Begin
////////////////////////////////////////////////////////////////////////////////
Case RadioGroup1.ItemIndex Of

0: Begin
SetLength(Arr,StringGrid1.RowCount,StringGrid1.ColCount);
With StringGrid1 Do

Begin
    For i:=1 To RowCount-1 Do Begin
    For j:=1 To ColCount-1 Do Begin
    Cells[j,i]:=IntToStr(Random(1000000)-300000);
    Arr[i-1,j-1]:=StrToInt(Cells[j,i]);
End;
End;
End;
End;



////////////////////////////////////////////////////////////////////////////////

//Ручной ввод данных в массив с помощью StringGrid;
1: Begin

With StringGrid1 Do
Begin
   SetLength(Arr,RowCount,ColCount);
   For i:=1 To RowCount-1 Do Begin
   For j:=1 To ColCount-1 Do Begin
   Arr[i-1,j-1]:=StrToInt(Cells[j,i]);
End;
End;
End;
End;

////////////////////////////////////////////////////////////////////////////////

Весь текст программы не вместился. Но есть во вложении.