Einlesen von Verschlüsselter Datei funktioniert nicht richti

[sx2008]

Durch die XOR-Verschlüsselung entstehen binäre Daten, die man mit einem TMemo oder TStringList nicht sauber laden oder speichern kann.
Daher folgende Funktionen verwenden (irgendwo geklaut aus der DP):

Delphi-Quellcode:

function FileToString(const FileName: string): AnsiString;
var
  fs: TFileStream;
  Len: Integer;
begin
  fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    Len := fs.Size;
    SetLength(Result, Len);
    if Len > 0 then
      fs.ReadBuffer(Result[1], Len);
  finally
    fs.Free;
  end;
end;

Procedure StringToFile(const FileName, Str: string);
var
  fs: TFileStream;
  Len: Integer;
begin
  fs := TFileStream.Create(FileName, fmcreate);
  try
    Len := Length(Str);
    fs.Write(Str[1], Len);
  finally
    fs.Free;
  end;
end;