[[oscarac]]

buenas tardes

como podria parsear un json con esta estructura

[{
"plain_orders_USER_mobile_number_13": "3242342342342",
"products": [{
"category": "1",
"name": "Pollo broaster con ensalada de chucrut y arroz",
"Event-Time": "01\/10\/2020 (Hora De Almuerzo)"},
{
"category": "2",
"name": "patita con mani",
"Event-Time": "02\/10\/2020 (Hora De Almuerzo)"}]
}, {
"plain_orders_USER_mobile_number_13": "1234",
"products": [{
"category": "1",
"name": "Pollo broaster con ensalada de chucrut y arroz",
"Event-Time": "01\/10\/2020 (Hora De Almuerzo)"},
{
"category": "2",
"name": "patita con mani",
"Event-Time": "02\/10\/2020 (Hora De Almuerzo)"}]
}]

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  JSo :  TJSONObject;
  JSOarray : TJSONArray;
  JSOValue: TJSONValue;
  remitente, destinatario, mensaje, estado : string;
begin
      JSOarray := TJSONObject.ParseJSONValue(Memo1.Text) as TJSONArray;
      for JSOValue in JSOarray do
      begin
        JSo := TJSONObject.ParseJSONValue(JSOValue.ToJSON) as TJSONObject;
        remitente :=  JSo.Values['category'].ToString;
        destinatario :=  JSo.Values['name'].ToString;
        Memo2.Lines.Add( remitente + '   ' + destinatario );  esto es para efectos de mostrar la informacion
      end;
end;

con este codigo puedo obtener los datos pero solo si el archivo fuera asi

[{
"category": "1",
"name": "Pollo broaster con ensalada de chucrut y arroz",
"Event-Time": "01\/10\/2020 (Hora De Almuerzo)"},
}, {
"category": "1",
"name": "xxxxxxxxxxxxx",
"Event-Time": "01\/10\/2020 (Hora De Almuerzo)"},
}, {
"category": "1",
"name": "yyyyyyyyyyyyyyyyyyyyyy",
"Event-Time": "01\/10\/2020 (Hora De Almuerzo)"},
}]

me darias una mano con esto por favor?