Ошибка с динамическим массивом, нет доступа к памяти

[Lokos]

for j := 0 to Length(Dogovora.Rekvizity)do//ищем реквизиты договора
   if Dogovora.Rekvizity[j,1]=Dogovory[i,0] then
      begin 
         if Dogovora.Rekvizity[j,4]='DataZakluchDog' then //авто заполнение даты состовления договора
            begin
               CountRecvizity:=CountRecvizity+3;
               SetLength(MemoViewMas,CountRecvizity);
               Dogovora.AddLog('дата, Длина масива '+IntToStr(length(MemoViewMas))+' Длина счетчика '+IntTostr(CountRecvizity));
               MemoViewMas[CountRecvizity-3]:=TfrxMemoView.Create(nil);
               MemoViewMas[CountRecvizity-3]:=MainForm.fRep.FindObject('DataZakluchDogDay') as TfrxMemoView;//связываем объект с реквизитом в договоре
               MemoViewMas[CountRecvizity-3].Text:=FormatDateTime('dd',Now);

               MemoViewMas[CountRecvizity-2]:=TfrxMemoView.Create(nil);
               MemoViewMas[CountRecvizity-2]:=MainForm.fRep.FindObject('DataZakluchDogMonth') as TfrxMemoView;//связываем объект с реквизитом в договоре
               MemoViewMas[CountRecvizity-2].Text:=FormatDateTime('mmmm',Now);

               MemoViewMas[CountRecvizity-1]:=TfrxMemoView.Create(nil);
               MemoViewMas[CountRecvizity-1]:=MainForm.fRep.FindObject('DataZakluchDogYear') as TfrxMemoView;//связываем объект с реквизитом в договоре
               MemoViewMas[CountRecvizity-1].Text:=FormatDateTime('yyyy',Now);
           end;
           else
              begin 
                   //заполение из стрингрида
                  CountRecvizity:=CountRecvizity+1;
                  SetLength(MemoViewMas,CountRecvizity);
                  MemoViewMas[CountRecvizity-1]:=TfrxMemoView.Create(nil);
                  MemoViewMas[CountRecvizity-1]:=MainForm.fRep.FindObject(Rekvizity[j,4]) as TfrxMemoView;//связываем объект с реквизитом в договоре;
                  for q := 1 to MainForm.SGPola.RowCount-1 do  //поиск значения реквизита
                     begin
                        if Rekvizity[j,5]=MainForm.SGPola.Cells[0,q]then
                           begin
                                Dogovora.AddLog(' Длина масива '+IntToStr(length(MemoViewMas))+' Длина счетчика '+IntTostr(CountRecvizity));
                                Dogovora.AddLog(' Значение реквизита '+Dogovora.Rekvizity[j,4]+' найдено ');
                                MemoViewMas[CountRecvizity-1].Text:=MainForm.SGPola.Cells[1,q] ;
                                Dogovora.AddLog(' реквизит '+Rekvizity[j,5]+'='+MainForm.SGPola.Cells[1,q]);
                           end;
                     end;
            end;
end;

вот лог при выполнении
03.03.2015-10:56:05 Заполняем реквизиты
03.03.2015-10:56:05дата, Длина масива 3 Длина счетчика 3
03.03.2015-10:56:05 Длина масива 4 Длина счетчика 4
03.03.2015-10:56:05 Значение реквизита PokupkaFIO найдено

[Lokos]

как оказалось в отчете отсутствовало поле PokupkaFIO