непонятный JSON (не парсится)

[BLACK_RAIN]

В ответ от сервера приходит JSON-файл со следующим содержанием:

{
    "token": "{\"authorization\":{\"forbidden\":false,\"reason\":\"\"},\"chansub\":{\"restricted_bitrates\":[\"160p30\",\"360p30\",\"480p30\",\"720p30\",\"720p60\",\"audio_only\",\"chunked\"]},\"device_id\":\"f5c750dc6abb384c\",\"expires\":1555483246,\"https_required\":false,\"privileged\":false,\"user_id\":null,\"version\":2,\"vod_id\":410955948}",
    "sig": "ae729bcb291b60e386dcf8b4d665b360a98111a7",
    "expires_at": "2019-04-17T06:40:46Z"
}

другие JSON''ы без проблем парсятся через TJSONObject, а этот какой-то непонятный - не парсится. Как его парсить, кроме как вручную?
Конкретно нужно прочитать массив restricted_bitrates.

[Alex11223]

Что тут непонятного? Достаньте строку из token и парсите (убрав экранирующие символы если остались).

[BLACK_RAIN]

всё, дошло. Зря тему создал
надо было так сделать:

    r := StringReplace(r, '\"', '', [rfReplaceAll]);

а я так делал:

    r := StringReplace(r, '\', '', [rfReplaceAll]);

[BLACK_RAIN]

и всё-равно он не парсится.
не удается распарсить содержимое token.
если удалить все слэши с кавычками, то не парсится token. Если удалить просто все слеши, а кавычки оставить, то не парсится совсем.

[Alex11223]

Все парсится без \. Кавычки естественно не надо убирать.
https://jsonformatter.curiousconcept.com/

Смотрите что у вас в r, выведите в файл.

[BLACK_RAIN]

  if https_Get(<запрос>, s) = 200 then
  begin
    s := StringReplace(s, '\', '', [rfReplaceAll]);
    json2 := TJSONObject.ParseJSONValue(s) as TJSONObject; //здесь json2 = nil. не парсится
  end;

содержимое переменной s:

{"token":"{"authorization":{"forbidden":false,"reason":""},"chansub":{"restricted_bitrates":["160p30","360p30","480p30","720p60","audio_only","chunked"]},"device_id":null,"expires":1555642412,"https_required":false,"privileged":false,"user_id":null,"version":2,"vod_id":411950229}","sig":"9d25f73cda3c03338c1c5333e87182d8e74d77ff","expires_at":"2019-04-19T02:53:32Z"}

а если убрать кавычки, весь json тогда парсится, а token нет.

[Alex11223]

Сообщение от Alex11223

Достаньте строку из token

↑↑↑↑↑↑

[BLACK_RAIN]

код:

    s := StringReplace(s, '\"', '', [rfReplaceAll]);
    json2 := TJSONObject.ParseJSONValue(s) as TJSONObject;
    t := json2.Get('token').JsonValue.Value;
    Clipboard.AsText := t;
    json2 := TJSONObject.ParseJSONValue(t) as TJSONObject; //nil

переменная t:

{authorization:{forbidden:false,reason:},chansub:{restricted_bitrates:[160p30,360p30,480p30,720p60,audio_only,chunked]},device_id:null,expires:1555645192,https_required:false,privileged:false,user_id:null,version:2,vod_id:411950229}

напоминаю еще раз, что без убирания кавычек вообще не парсится

[Alex11223]

Так не убирайте в s ничего.

[BLACK_RAIN]

Сообщение от Alex11223

Так не убирайте в s ничего.

начнем с начала.
как распарсить содержимое token?
я, наверное, что-то не так делаю.

{"authorization":{"forbidden":false,"reason":""},"chansub":{"restricted_bitrates":["160p30","360p30","480p30","720p60","audio_only","chunked"]},"device_id":null,"expires":1555647360,"https_required":false,"privileged":false,"user_id":null,"version":2,"vod_id":411950229}

как распарсить строку такого вида?