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

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;

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'];

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;

Var
  jsonObj: TJsonObject;
  jsonArr1, jsonArr2: TJsonArray;
 
  i_arr1, i_arr2: integer;
begin
try
  jsonObj := TJsonObject.ParseJSONValue(JsonData, true) as TJsonObject;
  jsonArr1 := jsonObj.getValue<TJsonArray>('asks');
  
  for i_arr1:= 0 to jsonArr1 -1 do
  begin
    jsonArr2:= jsonArr1.get(i_arr1) as TJsonArray;
    for i_arr2 := 0 to jsonArr2.count -1 do
    begin
     MyVal := (jsonArr2.Get(i) as TJsonValue).jsonValue;
    end;
  emd;
  
  
finally
  jsonObj.free;
end;
end;