[Creator13]

Здравствуйте!
Помогите пожалуйста с парсингом JSON
Eсть Json ответ Responce от сервера ниже,
Необходимо достать стоимость cost

{
  "num": "1",
  "object": "car",
  "active": 1,
  "state": 0,
  "desc": [
    {
      "model": "audi",
       "price": {
           "currency": "EUR",
           "cost": "8000"
      },
      "color": "red",
      "equipment": "full"
    }
  ],
  "owner": {
    "name": "Ivanov",
    "adress": "First street",
    "house": "45/1"
  },
  "extra": "none"
}

Попробовал своими силам, помогите завершить....

procedure TFMain.Button1Click(Sender: TObject);
var
   JSonObject: TJSONObject;
   JSonArray: TJSONArray;

begin
   try
    JSonObject := TJSONObject.ParseJSONValue(Responce) as JSONObject;
    JSonArray := JSonObject.GetValue('desc') as TJSONArray;
    //.......

     except
         on E: EJSONException  do
         begin
          Showmessage(E.Message);
          end;
     end;