Delphi - Recuperar valoresde un JSON

Hola, saludos a todos, requiero una ayuda urgente y estoy dispuesto a pagar por esta ayuda:

Tengo un archivo JSON devuelto por una API de distancia (adjunto el texto), deseo recorrer el archivo y extrar los 3 valores de "duration_in_traffic", el archivo tiene 3 veces ese valor, requiero poner cada valor en una línea de un Memo.

Texto del Json (lo que está en negrilla es lo que deseo recuperar:

{
"destination_addresses":[
"Cra. 81b, Bogotá, Colombia"
],
"origin_addresses":[
"Cra. 79 #19a-37, Bogotá, Colombia",
"Tv. 96b, Bogotá, Colombia",
"Av. El Dorado #929, Bogotá, Colombia"
],
"rows":[
{
"elements":[
{
"distance":{
"text":"766 m",
"value":766
},
"duration":{
"text":"3 mins",
"value":181
},
"duration_in_traffic":{
"text":"4 mins",
"value":240
},
"status":"OK"
}
]
},
{
"elements":[
{
"distance":{
"text":"2 km",
"value":2050
},
"duration":{
"text":"6 mins",
"value":410
},
"duration_in_traffic":{
"text":"14 mins",
"value":840
},
"status":"OK"
}
]
},
{
"elements":[
{
"distance":{
"text":"6 km",
"value":6042
},
"duration":{
"text":"12 mins",
"value":744
},
"duration_in_traffic":{
"text":"22 mins",
"value":1320
},
"status":"OK"
}
]
}
],
"status":"OK"
}

Buen día. Aquí te dejo un ejemplo. lleva una librería que requieres para procesar el json.

15 dólares por mi servicio.

• ejemplo-json.rar(14,6 KB)