Найти утечку в процедуре (TJSONObject)

[remus-xe2]

Опять TJSONObject мозга делает, не могу найти утечку...
Помогите правильно освободить переменные JSONData и Arry.

procedure AddDetalisation(ResiveJS, ip: string);
var
  ResicePocketJS: TJSONObject;
  hash: string;
  OnlineCounnt: Integer;
  JSfile: TStrings;
  JSON, JSONData: TJSONObject;
  Arry: TJSONArray;
  i: Integer;
begin
  try
  ResicePocketJS := TJSONObject.ParseJSONValue(ResiveJS) as TJSONObject;
    if Assigned(ResicePocketJS) then
    begin
      hash := ResicePocketJS.GetValue<TJSONString>('hash').Value;
      OnlineCounnt := ResicePocketJS.GetValue<TJSONNumber>('stantion_count').AsInt;

      if not DirectoryExists(ExtractFilePath(Application.ExeName) + 'log\autonom\activity') then
        ForceDirectories(ExtractFilePath(Application.ExeName) + 'log\autonom\activity');

      JSfile := TStringList.Create;
      if FileExists(ExtractFilePath(Application.ExeName) + 'log\autonom\activity\' + hash + '.json') then
      begin
        JSfile.LoadFromFile(ExtractFilePath(Application.ExeName) + 'log\autonom\activity\' + hash + '.json');
        JSON := TJSONObject.ParseJSONValue(JSfile.Text) as TJSONObject;
      end
        else
      begin
        JSON := TJSONObject.ParseJSONValue('{}') as TJSONObject;
      end;

       //записываю дату и время последнего обмена данными
      if Assigned(JSON.GetValue('lost_connect')) then
        JSON.RemovePair('lost_connect');
      JSON.AddPair('lost_connect', TJSONString.Create(DateTimeTostr(now)));

      if assigned(JSON.GetValue('online')) then
      begin
        Arry := JSON.GetValue<TJSONArray>('online');
        JSON.RemovePair('online');
      end
      else
        Arry := TJSONArray.Create;


      //записываю текущий онлайн панели
      JSONData := TJSONObject.Create as TJSONObject;
      JSONData.AddPair('count', TJSONNumber.Create(OnlineCounnt));
      JSONData.AddPair('data', TJSONString.Create(DateTimeTostr(now)));
      Arry.Add(JSONData);


      //Добавляю массив в JSON
      JSON.AddPair('online', Arry);
      JSfile.Text := JSON.ToString;
      JSfile.SaveToFile(ExtractFilePath(Application.ExeName) + 'log\autonom\activity\' + hash + '.json');

    end;
  finally
      FreeAndNil(ResicePocketJS);
      FreeAndNil(JSON);
      FreeAndNil(JSfile);
  end;

end;

Проект с этой процедурой
https://dropmefiles.com/tp2en

Предлагайте цену в личку форума...

[Larboss]

ТЗ, срок, бюджет: larbossfreelance@yandex.ru Метка: freelance. Указывайте ссылку на тему форума.