выделение памяти

[Geni]

Здравствуйте!
Возникла проблема с памятью, явно что-то не так в двухмерном динамическим массиве.
У меня есть массив:

Add: array of array of string;

Потом выделяю память для него:

h1 := down - up; //down>>up
h2 := StringGrid1.ColCount;
SetLength(Add, h2, h1);

Потом делаю запись в массив:

for j := up to down do
for i := 0 to StringGrid1.ColCount - 1 do
Add[i, j - up] := StringGrid1.Cells[i, j];

Потом очищаю сринггрид:

for j := 1 to StringGrid1.RowCount - 1 do
for i := 0 to StringGrid1.ColCount - 1 do
begin
StringGrid1.Cells[i, j] := '';
Application.ProcessMessages();
end;

Далее перезаписываю стринггрид данными из массива и очищаю его:

StringGrid1.RowCount := down - up + 2;

    for j := 1 to StringGrid1.RowCount - 1 do
      for i := 0 to StringGrid1.ColCount - 1 do
      begin
        StringGrid1.Cells[i, j] := Add[i, j - 1];
        Application.ProcessMessages();
      end;

    Add := nil;

Но при вычислений выдает ошибку (во вложении). Что не так?

Хотя бы скажите, правильно ли я выделил память и удалил массив.

[Geni]

все ребят тема закрыта, получилось исправив размерность выделяем памяти (увеличив на 2 ячейки количество строк)