JSON получить данные

[flug]

Приветствую всех!
Помогите пожалуйста получить данные из JSON.
Я не понимаю, как вытащить данные из zeta. У меня уже голова пухнет.

{
	"columns": [{
		"id": 2837,
		"words": "some text",
		"zeta": [38]
	}, {
		"id": 6658,
		"words": "yet some text",
		"zeta": [555]
	}]
}

Парсинг я делаю так:

procedure TForm1.Button1Click(Sender: TObject);
var 
    JS: TJSONObject;
    JsonArray, JA: TJSONArray;
    i: integer;
begin

        JS := TJSONObject.ParseJSONValue(pls.Text) as TJSONObject;
        if Assigned(JS) then
          begin
           JsonArray:=JS.GetValue('columns') as TJSONArray;

           for I := 0 to JsonArray.Count - 1 do
            begin
	     memo1.lines.add((JsonArray.Items[i] as TJSONObject).GetValue<TJSONNumber>('id').AsInt.ToString);
             memo1.lines.add((JsonArray.Items[i] as TJSONObject).GetValue<TJSONString>('words').Value);
	     //memo1.lines.add((JsonArray.Items[i] as TJSONObject).GetValue<TJSONString>('zeta').Value);
            end;
          end;	

end;

Всё прекрасно работает, но вот как заполучить zeta не понимаю.
Помогите пожалуйста распарсить.

[Alex11223]

Это массив, раз в [ ].
Как columns.

[flug]

Alex11223
В том-то и дело, что я не понимаю как его получить в моём цикле. Помогите, плиз.

[Alex11223]

Так же как и columns.
Ну только внутри сразу значение, а не объект.

[flug]

Всё, разобрался
надо так

JA := JsonArray.Items[i].GetValue<TJSONArray>('zeta');
memo1.lines.add(JA.Items[0].Value);

Просто только начал изучать работу с JSON и опух от кучи возможностей

[Alex11223]

Да что там изучать, вся грамматика на визитку помещается.