[kossr]

При попытке уничтожить объект возникает ошибка "Invalid pointer operation"

Код:

            if Assigned(JsonArray) then
            begin
              for i := 0 to JsonArray.Size-1 do
                begin
                  JSONArray2:=JsonArray.Get(i) as TJSONArray;
                      for j := 0 to JsonArray2.Size-1 do
                        begin
				{что-то делаем, все нормально}                  
                        end;
                  JSONArray2.Destroy;//тут уничтожается нормально
                end;
                JsonArray.Destroy;//а вот тут ошибка
            end;

При попытке Free та же картина.