xe5自带的TJSONObject如何解析这种json

做了个c++的
TJSONObject *JSON = (TJSONObject*)TJSONObject::ParseJSONValue(Memo4->Text);
JSON = (TJSONObject*)JSON->Get(0);
JSON->Count;
((TJSONPair*)JSON->Get("cmd"))->JsonString->Value();
((TJSONPair*)JSON->Get("cmd"))->JsonValue->Value(); ((TJSONPair*)JSON->Get("error"))->JsonString->Value();
((TJSONPair*)JSON->Get("error"))->JsonValue->Value(); TJSONArray *jar = (TJSONArray*)((TJSONPair*)JSON->Get("data")->JsonValue);
for (int i = 0; i < jar->Count; i++)
{ for (int j = 0; j < 4; j++)
{
Caption = ((TJSONPair*)((TJSONArray*)jar->Get(i))->Get(j))->JsonString->Value();
Caption = ((TJSONPair*)((TJSONArray*)jar->Get(i))->Get(j))->JsonValue->Value();
} }