TJson.Format und Umlaute

[Der schöne Günther]

Nur nochmal das Ergebnis:

Delphi-Quellcode:

procedure p();
var
   jsonObject: TJSONObject;
begin
   jsonObject := TJsonObject.Create();
   jsonObject.AddPair('text', 'Straße');

   Writeln( jsonObject.ToString() );
   Writeln( jsonObject.ToJSON() );
   WriteLn( Rest.Json.TJson.Format(jsonObject) );
end;

ergibt

Code:

{"text":"Straße"}
{"text":"Stra\u00DFe"}
{
  "text":"Straße"
}