Json Google Maps

[rodrigofernandes]

Bom dia tudo bem ?

Estou fazendo a requisição do webservice do google maps. 

O retorno do serviço é um arquivo Json que faço o seguinte processo:

  RESTClient1.BaseURL := urlOrigem;
  RESTRequest1.Execute;

  Memo1.Clear;
  Memo1.Lines.Add(RESTRequest1.Response.JSONText);
 

Preciso de ajuda para percorrer o arquivo  de retorno e pegar as informações necessárias, abaixo estou copiando os dados do memo

{
    "results": [
        {
            "address_components": [
                {
                    "long_name": "Rua Augusto Wolf",
                    "short_name": "Rua Augusto Wolf",
                    "types": [
                        "route"
                    ]
                },
                {
                    "long_name": "Jardim do Sol",
                    "short_name": "Jardim do Sol",
                    "types": [
                        "political",
                        "sublocality",
                        "sublocality_level_1"
                    ]
                },
                {
                    "long_name": "Indaiatuba",
                    "short_name": "Indaiatuba",
                    "types": [
                        "administrative_area_level_2",
                        "political"
                    ]
                },
                {
                    "long_name": "São Paulo",
                    "short_name": "SP",
                    "types": [
                        "administrative_area_level_1",
                        "political"
                    ]
                },
                {
                    "long_name": "Brazil",
                    "short_name": "BR",
                    "types": [
                        "country",
                        "political"
                    ]
                },
                {
                    "long_name": "13343-630",
                    "short_name": "13343-630",
                    "types": [
                        "postal_code"
                    ]
                }
            ],
            "formatted_address": "Rua Augusto Wolf - Jardim do Sol, Indaiatuba - SP, 13343-630, Brazil",
            "geometry": {
                "bounds": {
                    "northeast": {
                        "lat": -23.0982405,
                        "lng": -47.20356659999999
                    },
                    "southwest": {
                        "lat": -23.1016691,
                        "lng": -47.2087514
                    }
                },
                "location": {
                    "lat": -23.0998709,
                    "lng": -47.2058849
                },
                "location_type": "GEOMETRIC_CENTER",
                "viewport": {
                    "northeast": {
                        "lat": -23.0982405,
                        "lng": -47.20356659999999
                    },
                    "southwest": {
                        "lat": -23.1016691,
                        "lng": -47.2087514
                    }
                }
            },
            "place_id": "ChIJ-VKzTlBLz5QRG-jBHklwwPI",
            "types": [
                "route"
            ]
        }
    ],
    "status": "OK"
}
 

[Juliomar Marchetti]

Delphi versão?

[rodrigofernandes]

Rio 10.3