Json-Objekte: Merge

[Der schöne Günther]

Gibt es im Delphi-Standardumfang etwas um zwei Json-Objekte zu vereinigen? Angenommen ich habe zwei Objekte A und B, beim Vereinigen soll das Ergebnis C alle Paare aus A ∪ B enthalten. Bei doppelten IDs soll B bevorzugt werden. Beispiel:

Code:

{
  "id": "ABC 123",
  "numbers": [1,2,3],
  "message": "Hallo Welt"
}

und

Code:

{
  "id": "ABC 123",
  "numbers": [10]
}

soll ergeben:

Code:

{
  "id": "ABC 123",
  "numbers": [10],
  "message": "Hallo Welt"
}

Gibt es da etwas? Wenn nicht, was gibt es im 3rd Party-Bereich?