Rest Server Umlaute Indy

[ScharfeMietze]

Da es halbwegs zum Thema gehört stelle ich die Frage hier mit

Ich muss ja Server seitig die Ausgabe auch in Json verpacken.

nun habe ich mir mal ein Example angesehen

http://docwiki.embarcadero.com/Libra...Object.AddPair

Delphi-Quellcode:

uses System.json;
 
var
  Obj, ObjCons, ObjIpp: TJSONObject;
 
begin
  Obj := TJSONObject.Create;
  try
    ObjIpp := TJSONObject.Create;
    ObjIpp.AddPair('ipp', TJSONNumber.Create(1122368));
 
    ObjCons := TJSONObject.Create;
    ObjCons.AddPair('decision', 'NA');
    ObjCons.AddPair('idPatient', ObjIpp);
    ObjCons.AddPair('idStructure', TJSONNumber.Create(300000000023887));
 
    Obj.AddPair('consentement', ObjCons);
    Memo1.Lines.Add(Obj.ToJSON);
  finally
    Obj.Free;
  end;
 
end;

Funkpionieren tut es. Die Frage ist, warum brauche ich manchmal ein Create/Free und manchmal nicht? Kann mir das jemand erklären?

Gruß
SM