Работа с памятью внутри TJSONObject

TJSONObject = class sealed(TJSONValue)
  public   
///...
    /// <summary> Parses a byte array and returns the JSON value from it.
    /// </summary>
    /// <remarks> 
    /// </remarks>
    /// <param name="Data">- byte array, not null</param>
    /// <param name="Offset">- offset from which the parsing starts</param>
    /// <param name="count">- buffer capacity</param>
    /// <param name="IsUTF8">- true if the Data should be treated as UTF-8. Optional, defaults to true</param>
    /// <returns>JSONValue - null if the parse fails</returns>
    class function ParseJSONValue(const Data: TArray<Byte>; const Offset: Integer; const Count: Integer; IsUTF8: Boolean = True): TJSONValue; overload; static;
 
///....
 
class function TJSONObject.ParseJSONValue(const Data: TArray<Byte>; const Offset: Integer;
                                          const Count: Integer; IsUTF8: Boolean): TJSONValue;
var
  Parent: TJSONArray;
  Answer: TJSONValue;
  Br: TJSONByteReader;
begin
  Parent := TJSONArray.Create;
  Answer := nil;
  Br := TJSONByteReader.Create(Data, Offset, Count, IsUTF8);
  try
    ConsumeWhitespaces(Br);
    if (ParseValue(Br, Parent) = Count) and (Parent.Size = 1) then
      Answer := Parent.Pop;
    Result := Answer;
  finally
    Parent.Free;
    Br.Free;
  end;
end;

class function TJSONObject.ParseJSONValue(const Data: TArray<Byte>; const Offset: Integer;
                                          const Count: Integer; IsUTF8: Boolean): TJSONValue;
var
  Parent: TJSONArray;
  Answer: TJSONValue;
  Br: TJSONByteReader;
begin
  Parent := TJSONArray.Create;
  Answer := nil;
// байт-ридер кушает входящую строку, убирает BOM и предоставляет парсеру TJSONObject.ParseValue удобный доступ к байтам текста
  Br := TJSONByteReader.Create(Data, Offset, Count, IsUTF8); 
  try
    ConsumeWhitespaces(Br);
// ParseValue разбирает строку на куски и в виде списка TDBXArrayList записывает внутрь TJSONArray Parent
    if (ParseValue(Br, Parent) = Count) and (Parent.Size = 1) then 
      Answer := Parent.Pop; // если парсинг успешен, метод Pop делает нам копию итогового результата
    Result := Answer;
  finally
    Parent.Free;
    Br.Free;
  end;
end;

function TJSONArray.Pop: TJSONValue;
var
  Value: TJSONValue;
begin
// делается копия элемента списка как TJSONValue, 
// но на самом деле внутри один из наследников TJSONValue в зависимости от результатов парсинга
// вот эта копия и возвращается в итоге под указателем, ее нам и освобождать потом
  Value := TJSONValue(FElements[0]); 
  FElements.RemoveAt(0);
  Result := Value;
end;