[code=pascal]
procedure TForm1.Button7Click(Sender: TObject);
var
  OtvJSAr, OtvJSArNotDuble: TJSonArray;
begin
  OtvJSAr := TJSonArray.Create;
  OtvJSArNotDuble := TJSonArray.Create;
 try
  ...
 finally
  FreeAndNil (OtvJSAr);
  ShowMessage ('конец2');  // для отладки, чтобы понять какая строка дает ошибку
  FreeAndNil (OtvJSArNotDuble);
  end;

end;

procedure TForm1.Button7Click(Sender: TObject);   
var
  OtvJSAr, OtvJSArNotDuble: TJSonArray;
begin
  OtvJSAr := TJSonArray.Create;
  OtvJSArNotDuble := TJSonArray.Create;
 try
  OtvJSAr := TJsonObject.ParseJSONValue(mmo2.text) as TJsonArray;
     if Assigned (OtvJSAr) then begin
          edt6.Text := inttostr(OtvJSAr.Count);
     end
     else  ShowMessage ('не понял структуру данных');

     mmo2.Lines.Clear;
     OtvJSArNotDuble.Add (OtvJSAr.items[0] as TJSONObject);
     mmo2.Lines.Add (OtvJSArNotDuble.Format(2));

 finally

  FreeAndNil (OtvJSAr);
  ShowMessage ('конец2');      // для отладки
  FreeAndNil (OtvJSArNotDuble);
  ShowMessage ('конец3');      // для отладки
 end;
end;

finally
  OtvJSAr.Free;
  ShowMessage ('конец2');
  OtvJSArNotDuble.Free;
  ShowMessage ('конец3');

 finally
  FreeAndNil (OtvJSAr);
  ShowMessage ('конец2');
//  FreeAndNil (OtvJSArNotDuble);
  ShowMessage ('конец3');

else  begin
      ShowMessage ('не понял структуру данных');
      Exit ;
 end;

OtvJSArNotDuble.Add (OtvJSAr.items[0] as TJSONObject);

...
// И теперь освобождаем и обнуляем этот объект
  FreeAndNil(myList);

 // Мы можем сделать это безопасно дважды - она игнорирует нулевые объекты
  FreeAndNil(myList);
end;

 finally
  FreeAndNil (OtvJSArNotDuble);
   FreeAndNil (OtvJSArNotDuble);
  ShowMessage ('конец2');
  FreeAndNil (OtvJSAr);
  ShowMessage ('конец3');

 finally
  FreeAndNil (OtvJSArNotDuble);
  OtvJSAr := TJSonArray.Create;
  ShowMessage ('конец2');
  FreeAndNil (OtvJSAr);

OtvJSArNotDuble.Add (OtvJSAr.items[0].Clone as TJSONObject);