Tenta armazenar o conteúdo json utilizando um memo e um Listbox pra listar o conteúdo
var
jsonObj, jSubObj: TJSONObject;
JSArray : TJSONArray;
JSValue : TJSONValue;
i: Integer;
j: Integer;
begin
jsonObject := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(Memo1.Text), 0) as TJSONObject;
for j := 0 to jsonObject.Size - 1 do
begin
JSValue := jsonObj.Get(j).JsonValue;
JSArray := JSValue as TJSONArray;
end;
ListBox1.Clear;
for i := 0 to JSArray.Size - 1 do
begin
jSubObj := (JSArray.Get(i) as TJSONObject);
JSValue := jSubObj.Get(0).JsonValue;
ListBox1.Items.Add(JSValue.Value);
end;
end;