TccJSON.AddJsonObjValue

Konto   := TccJSON.Create;
Inhaber := TccJSON.Create;

Try
  Inhaber.AddValue('Name', 'Mustermann');
  Inhaber.AddValue('Vorname', 'Max');
  Inhaber.AddValueAsBool('Maennlich', True);

  Konto.AddValue('Herausgeber', 'Xema');
  Konto.AddValue('Nummer', '1234-5678-9012-3456');
  Konto.AddValueAsNumber('Deckung', 2000000);
  Konto.AddValue('Waehrung', 'EURO');

  Konto.AddJsonObjValue(Inhaber,'','Inhaber');

Finally
  Konto.free;
  Inhaber.free;
End;
// {"Herausgeber":"Xema","Nummer":"1234-5678-9012-3456","Deckung":2000000,"Waehrung":"EURO","Inhaber":{"Name":"Mustermann","Vorname":"Max","Maennlich":true}}

Var
  Adresse          : String;
  Wohnort          : TccJSON;
  Buero            : TccJSON;

Begin
  Person          := TccJSON.Create;
  Wohnort         := TccJSON.Create;
  Buero           := TccJSON.Create;
                
  Try
    Wohnort.AddValue( 'Strasse', 'Kreuzbühlstrasse' );
    Wohnort.AddValueAsNumber('Hausnummer', 12 );
    Wohnort.AddValue( 'Wohnort', 'Albstadt' );
    Wohnort.AddValueAsNumber( 'PLZ', 72158 );

    Buero.AddValue( 'Strasse', 'Rübenheulestrasse' );
    Buero.AddValueAsNumber('Hausnummer', 1);
    Buero.AddValue( 'Wohnort', 'Albstadt' );
    Buero.AddValueAsNumber( 'PLZ', 72162 );
                  
    Person.AddValue( 'Vorname', 'Moritz' );
    Person.AddValue( 'Name', 'Huberbatscher' );

    Person.AddJsonObjValue( Wohnort,'Adresse','Home');
    Person.AddJsonObjValue( Buero,    'Adresse','Geschäft' );

    showMessage(Person.GetSource());
  Finally
    Wohnort.Free;
    Buero.Free;            
    Person.Free;
  End;
End;
// {"Vorname":"Moritz","Name":"Huberbatscher","Adresse":[{"Home":{"Strasse":"Kreuzbühlstrasse","Hausnummer":12,"Wohnort":"Albstadt","PLZ":72158}},{"Geschäft":{"Strasse":"Rübenheulestrasse","Hausnummer":1,"Wohnort":"Albstadt","PLZ":72162}}]}