Как распарсить json

[remus-xe2]

Доброго дня, пытаюсь перейти с system.json на XSuperObject.
Не могу понять как распарсить массив типа такого:

[{
"user_id": "20432",
"user_name": "aGFN0cmVt",
"hash": "WFhYWFhYWFhFhYWFhYWFhYWFhYWFhYWFg= ",
"auth": false
}, {
"user_id": "204392",
"user_name": "SFMgRBoYXNoc3RyZW0p",
"hash": "MzhGMTczNzTBDQUM2NDg0RkFDNDgxRjEwO EM=",
"auth": true
}]

в стандартном компоненте просто пихал все это в TJSONArry и крутил в цикле записи а в XSuperObject нашел только как обращаться к массивам которые имеют имена.

arr:= SA(memo1.Text);
for I := 0 to obj.Length-1 do
.......

в теле цикла что писать, как обратится к конкретному элементу массива ?

[remus-xe2]

возможно кому то поможет
for I := 0 to arr.Length-1 do
showmessage( arr.o[i].s['user_id'] );