Распарсить JSON

[nibufep]

Доброго времени суток!

{
  "response": {
    "count": 2,
    "items": [
      {
        "message": {
          "id": 4444,
          "date": 1461921358,
          "out": 1,
          "user_id": 2,
          "read_state": 0,
          "title": " ... ",
          "body": "тексттекстек",
          "random_id": 0
        },
        "in_read": 4740,
        "out_read": 0
      },
      {
        "message": {
          "id": 4445,
          "date": 1461916858,
          "out": 1,
          "user_id": 1,
          "read_state": 1,
          "title": " ... ",
          "body": "тексттекстек",
          "random_id": 0
        },
        "in_read": 4737,
        "out_read": 4738
      }
    ]
  }
}

  jsnobj := TJSONObject.ParseJSONValue(html) as TJSONObject;
  jsnobj2 := jsnobj.GetValue('response') as TJSONObject;
  jsnarr := jsnobj2.GetValue('items') as TJSONArray;

А как теперь прочитать каждый "message" не могу понять...

(Компонент: System.JSON)

[Mik92]

JSON:= TJSONObject.Create;
JSON:= TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(RESPONSE), 0) as TJSONObject;
if JSON.Values['response'].Value = 'OMG' then ShowMessage(JSON.Values['response'].Value);