Получения списка элементов массива при парсинге JSON на XE4

class JS
{
    public:
        TJSONPair* JSONPair;
        TJSONObject* JSONObject;
        UnicodeString Source;
 
        JS(UnicodeString Source)
        {
            this->Source = Source;
        }
 
        UnicodeString On(UnicodeString Name)
        {
            TStringList* list = new TStringList;
            try {
 
              list->Delimiter = '-';
              list->DelimitedText = Name;
              JSONObject = dynamic_cast<TJSONObject*>(TJSONObject::ParseJSONValue(Source));
              if (JSONObject==NULL) {
                return "";
              }
              for ( int i = 0; i < list->Count; i++ )
              {   String ls = list->Strings[i];
                  JSONPair = JSONObject->Get(ls);
                  if (JSONPair==NULL) {
                    continue;
                  }
                  String sPair = JSONPair->JsonValue->Value();
                  JSONObject = dynamic_cast<TJSONObject*>(TJSONObject::ParseJSONValue(sPair));
                  if (JSONObject==NULL) {
                    continue;
                  }
              }
            } __finally {
              delete list;
            }
            if (JSONPair==NULL)
              return "";
            return JSONPair->JsonValue->Value();
        }
};

  TStringList *sl = new TStringList();
  sl->LoadFromFile("1.txt");//здесь для теста текст самого JSON
  String s = sl->Text;
 
  String ss1 = GetJSON(s,"text_uid");// пусто ибо нет такого поля
  String ss2 = GetJSON(s,"unique"); // "0.00" - корректно
  String ss4 = GetJSON(s,"result_json-unique"); - "0" - тоже корректно

    TStringList *sl = new TStringList();
    sl->LoadFromFile("1.txt");
    String s = sl->Text;
 
    std::auto_ptr<TJSONObject> Json(static_cast<TJSONObject*>(TJSONObject::ParseJSONValue(s)));
    TJSONObject *obj = static_cast<TJSONObject*>(Json->Get("result_json")->JsonValue);
 
    // теперь получаем из строки, хранящейся в result_json сам json, и дальше работаем с ним
    std::auto_ptr<TJSONObject> InnerJson(static_cast<TJSONObject*>(TJSONObject::ParseJSONValue(obj->Value())));
    TJSONArray *Jarr = static_cast<TJSONArray*>(InnerJson->Get("urls")->JsonValue);
    for (int i = 0; i < Jarr->Size(); i++)
    {
        TJSONObject *jItem = static_cast<TJSONObject*>(Jarr->Get(i));
        String url = jItem->Get("url")->JsonValue->Value();
        Memo1->Lines->Add(url); // вывести для теста все url-ы в memo
    }