Formatierung eines RichEdit speichern

[TheMiller]

Ich hab's jetzt so gemacht:

Delphi-Quellcode:

function RichText(re: TRichEdit): String;
var
  ss: TStringStream;
begin
  ss := TStringStream.Create ('');
  try
    re.Lines.SaveToStream(ss);
    Result := ss.DataString;
  finally
    ss.Free;
  end;
end;

Diese Funktion ist von marabu. Doch leider kommt wieder diese "Einfüge-Fehler"

EDIT: Jap, die XML-Datei ist nun nicht mehr wohlgeformt... Mal sehen, wie ich den RTF-Kram escapen kann. Liegt doch daran, oder?