Einlesen von Verschlüsselter Datei funktioniert nicht richti

[Jens Hartmann]

In meinem Programm, womit ich die Datei erstelle, sind eingendlich keine Zeilentrenner vorhanden.
Ich hänge mal eine Datei an.

Hier mal die komplette Procedure zum erstellen der Datei

Delphi-Quellcode:

procedure TForm1.BTErstellenClick(Sender: TObject);
var
Stammdaten      : String;
Kunde           : String;
Kundenname      : String;
Ansprechpartner : String;
Matchcode       : String;
Objekt          : String;
Anschrift       : String;
Straße          : String;
Hausnummer      : String;
Wohnort         : String;
PLZ             : String;
Ort             : String;
Tel             : String;
Fax             : String;
EMail           : String;
Version         : String;
Seriennummer    : String;
Lizenznummer    : String;
Lizenzdatei     : String;
A               : Integer;
Erstellen       : String;
F               : Textfile;
begin
  Kundenname := DBEdit1.Text;
  Ansprechpartner := DBEdit2.Text;
  Matchcode := DBEdit3.Text;
  Objekt := DBEdit4.Text;
  Straße := DBEdit5.Text;
  Hausnummer := DBEdit6.Text;
  PLZ := DBEdit7.Text;
  Ort := DBEdit8.Text;
  Tel := DBEdit9.Text;
  Fax := DBEdit10.Text;
  EMail := DBEdit11.Text;
  Version := CBVersion.Text;
  Seriennummer := EDSeriennummer.Text;
  Lizenznummer := EDLizenznummer.Text;
  Anschrift := Straße+Hausnummer;
  Wohnort := PLZ+Ort;
  Lizenzdatei := Kundenname+Objekt+
                 Version+Seriennummer+Lizenznummer+
                 'Diese Lizenz sollte bitte nicht genutzt werden';
  MMLizenzdatei.Clear;
  MMLizenzdatei.Lines.Append(Lizenzdatei);
  Memo1.Text := Lizenzdatei;
  Delay(4000);
  for A := 1 to Length (Lizenzdatei)do
  begin
  Lizenzdatei[A] := Char(Byte(Lizenzdatei[A]) xor 42);
  end;
  Memo1.Text := Lizenzdatei;
  Memo1.Lines.SaveToFile('..\Liz\'+Kundenname+'.liz');
   Delay(1000);
   TabSheet4.Show;
   BTErstellen.Enabled := False;
   BTKundendatenerstellen.Enabled := True;
end;

MFG

Jens