Как разобрать JSON строка в Delphi?

Как я могу проанализировать строку JSON

{"data":{"results":[{"Branch":"ACCT590003"}]}}

с помощью объекта TJSONObject ? Я хочу получить значение ACCT590003 из этой строки.