Dataset austausch über JSON

[fisipjm]

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var
  lStringStream: TstringStream;
begin
  lstringStream := tstringstream.create;
  try
    FDMemTable1.SaveToStream(lStringStream,sfJSON);
    FDMemTable2.LoadFromStream(lStringStream,sfJSON);
  finally
    lStringStream.free;
  end;

end;

Beispielprojekt im Anhang, hab beim erstellen bemerkt, dass es scheinbar nicht an denUmlauten liegt, die Frage bleibt im Grundsatz aber die gleiche. Warum tut es nicht?