Парсинг JSON. (X-SuperObject) Delphi XE8

[mailkyda]

Delphi XE8. Для парсинга использовал X-SuperObject.
Работаю с API VK получаю JSON ответ.
Выдернуть access_token получилось без проблем вот таким способом:

var
  JSONObject, GContact: ISuperObject;
  JsonArray: ISuperArray;
  i: integer;
begin
  email:=Form1.Edit1.Text;
  pass:=Form1.Edit2.Text;
  response:=send('GET', 'https://oauth.vk.com/token?grant_type=password&client_id=2274003&client_secret=hHbZxrka2uZ6jB1inYsH&username='+email+'&password='+pass+'&captcha_key=&captcha_sid=');
 
  //получаем access_token
  JSONObject:=TSuperObject.Create;
  JSONObject:=SO(response);
  token:=JSONObject.S['access_token'];
  Form3.Edit3.Text:=token;

Все бы ничего, но не получается вытащить вытащить значение ключа photo_75 в массиве attachments. Ниже дан код.

{
   "response":{
      "count":1,
      "items":[
         {
            "id":246365,
            "date":1463913029,
            "out":0,
            "user_id":53453566,
            "read_state":1,
            "title":" ... ",
            "body":"",
            "deleted":1,
            "attachments":[
               {
                  "type":"photo",
                  "photo":{
                     "id":416603645,
                     "album_id":-3,
                     "owner_id":53453566,
                     "photo_75":"http:\/\/cs636717.vk.me\/v636717206\/8e61\/gSCbceBaWRo.jpg",
                     "photo_130":"http:\/\/cs636717.vk.me\/v636717206\/8e62\/d3GZYEzjB2k.jpg",
                     "photo_604":"http:\/\/cs636717.vk.me\/v636717206\/8e63\/FqoPyZe1Lx8.jpg",
                     "width":491,
                     "height":488,
                     "text":"",
                     "date":1463913029,
                     "access_key":"8bc37bf13f8d6df162"
                  }
               }
            ]
         }
      ]
   }
}

Проблема в том что не знаю как правильно указать путь. Пытался как-то так:

var
  JSONObject, GContact: ISuperObject;
  JsonArray: ISuperArray;
  i: integer;
  token, response, photo : string;
begin
  ...
  ...
  ...
 
    response:=send('GET', 'https://api.vk.com/method/messages.getById?&message_ids=246365&v=5.52&access_token='+token);
 
 
///Получаем значение ключа photo_75
Memo1.Lines.Add(response);
Memo1.Lines.Delete(0);
JSONObject:=TSuperObject.Create;
JSONObject:=SO(response);
photo:=JSONObject.O['response'].A['items'].A['attachments'].O['photo'].S['photo_75'];

[mailkyda]

Проблему решил вот таким кодом.

procedure TForm1.Button1Click(Sender: TObject);
var
JsonObject: ISuperObject;
response, photo : string;
begin
 
/// Запрос API
response:=send('GET', 'https://api.vk.com/method/messages.getById?&message_ids=246180&v=5.52&access_token='+token);
 
/// Вывод ответа в Memo1
Memo1.Lines.Add(response);
 
/// Парсинг JSON
JSONObject:=TSuperObject.Create;
photo:=SO(response).O['response'].A['items'].O[0].A['attachments'].O[0].O['photo'].s['photo_75'];
 
/// Вывод спарсенного значения в Memo2
Memo2.Lines.Add(photo);
 
end;