Tenta armazenar o conteúdo json utilizando um memo e um Listbox pra listar o conteúdo

```delphi
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;
```