Получение ответа от компонента REST

[Cruzel]

Здравствуйте. Такая проблема - пишу программу для работы с API Вконтакте, решил воспользоваться компонентом REST Client. Проблема в обработке ответа от сервера. Он приходит в JSON-формате, и хотелось бы обрабатывать это средствами того же компонента REST.

Вот, к примеру, как это делается на Delphi:

procedure TForm21.RESTRequest1AfterExecute(Sender: TCustomRESTRequest);
const
  //тип ответа сервера
  cResponseKind : array [0..3] of string = ('drive#fileList','drive#file','drive#about','drive#revision');
var JSONObject: TJSONObject;
    Kind: string;
begin
  if Assigned(Sender.Response.JSONValue) then
    begin
      JSONObject:=Sender.Response.JSONValue as TJSONObject;
      //узнаем тип ответа сервера
      Sender.Response.GetSimpleValue('kind',Kind);
      case AnsiIndexStr(Kind, cResponseKind) of
        0:ParseFileList(JSONObject);
        1:ParseFile(JSONObject);
      end;
    end;
end;

Далее идёт такой код:

procedure TForm21.ParseFile(AJSONObject: TJSONObject);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Title: '+AJSONObject.Get('title').JsonValue.Value);
  Memo1.Lines.Add('Mime-Type: '+AJSONObject.Get('mimeType').JsonValue.Value);
  Memo1.Lines.Add('Created Date: '+AJSONObject.Get('createdDate').JsonValue.Value);
end;

Попытался переписать это на C++, оставив себе только нужные участки кода (мне не нужно узнавать, какого типа данные пришли, и всегда выполняется одна и та же функция), но безуспешно. Вот что у меня получилось:

TJSONObject* AJSONObject= new TJSONObject;
Console->Lines->Add("Равно ="+AJSONObject->Get("post_id")->JsonValue->Value());

При выполнении кода выпадает такая ошибка:

Access violation at address 5211A494 in module 'DbxCOmmonDriver190.bpl'. Read of address 0000000C.

Прочитал всё что можно. И справки, и в интернете искал. Надеюсь на вашу помощь. Заранее огромнейшее спасибо

[Cruzel]

Извиняюсь за то, что тут ахинею написал. Делал поначалу неправильно, поэтому всё и не получалось. Делается так (может кому пригодится, взято с другого форума):

TJSONObject *jObj = static_cast<TJSONObject*>(TJSONObject::ParseJSONValue(RESTResponse1->Content));
TJSONObject *jItem = static_cast<TJSONObject*>(jObj->Get("response")->JsonValue);
String code = jItem->Get("post_id")->JsonValue->Value();