JSON - Delphi

Bom dia.
Estaria precisando de um apoio, estou tentando ler um JSON, porem não estou conseguindo avançar.
Se alguém puder dar um dica...

JSON:
{
"listaoferta":[
{
"oferta_id":"1",
"produto_codigo_ean":"7891035210006",
"valor_oferta":"1.00"
},
{
"oferta_id":"2",
"produto_codigo_ean":"7891035210006",
"valor_oferta":"2.00"
},
{
"oferta_id":"3",
"produto_codigo_ean":"7891035210006",
"valor_oferta":"3.00"
}
]
}


Rotina de Leitura:

procedure TForm1.Button2Click(Sender: TObject);
var
jsonObject, JsonObject2: TJsonObject;
i: integer;
begin
jsonObject := TJsonObject.ParseJSONValue(MemoJSON.Text) as TJsonObject;
JsonObject2 := jsonObject.Get('listaofertas').JsonValue as TJsonObject;

ListBox1.Items.Add('OFERTA_ID:' + jsonObject.GetValue('oferta_id').Value);
ListBox1.Items.Add('CODEBAR:' + jsonObject.GetValue('produto_codigo_ean').Value);

for i := 0 to JsonObject2.Size - 1 do
ListBox1.Items.Add(JsonObject2.Get(i).JsonString.Value + ': ' + JsonObject2.Get(i).JsonValue.Value);
end;