Парсинг массива в json

[C_R_E_S_C_H]

Делаю все как описано здесь с помощью superobjectv пытаюсь считать из массива а 0 ячейку



следующим методом:

procedure TForm1.Button1Click(Sender: TObject);
var
  rz:ansistring;  //Переменная строки json
  JsonObject, GContact: ISuperObject;
  JsonArray: TSuperArray;
  i: integer;
begin
rz :=(refsec('Иван', 'Подоляк',
'41649419','02e92bd6bb03fd2c286ec38119c6ec96')); //Присваеваем переменной ответ сервера.
if Copy(rz, 1)<>'{' then              //Проверяем 1 символ строки (должен быть '{')
   begin                              //если символ не тот удаляем все с начала строки до этого символа
    Delete(rz, 1, Pos('{', rz)-1);
   end;
try
 JsonObject := SO(rz);  //создаем объект
 JsonArray := JsonObject.A['a'];//получаем массив
 if Assigned(JsonArray) then
for i := 0 to JsonArray.Length - 1 do
   begin
    GContact := JsonArray.O[i];
    Memo1.Lines.Add(Utf8ToAnsi(GContact.S['0.$t']));
   end;
except
ShowMessage('Error');
end;

Но в Memo возвращается не
209.190.120.210/Geo/Segment00
а
0
0
0

В чем я ошибся?