SuperObject Delphi

[PaHaNjkee]

Всем привет. Необходимо пройти по всему JSON-массиву и найти совпадение. В X-SuperObject всё просто:

result := false;

object.A['users'].Where(function(Arg: IMember): Boolean
  begin
    with Arg.AsObject do
      Result := (S['userName'] = aUserName);

    if (result) then
    begin
      Result := true;
      Exit;
    end;

  end);

Если ли рациональные способы в SuperObject кроме перебора всего массива?

[PaHaNjkee]

Столкнулся с одной проблемой. Не могу добавить в массив данные. Массив не создан.

json.A['job'].Add(TSuperObject.Create('{"id":"1","type":"thistype"'));

json['job[]'].S['id'] := aId;
json['job[]'].S['type'] := aType;

Выводит исключение