TListview speichern und verschlüsseln

[Tim-94]

Hallo zusammen,
ich bin zwar schon etwas länger Mitglied hier, aber dies ist mein erster Thread.
Ich speichere ein Listview, also alle Items und Subitems, mit einem
TFilestream:

Delphi-Quellcode:

var
  Stream: TFileStream
begin
 Stream:= TFileStream.Create('.\Data.dll', fmCreate);
  try
    Stream.WriteComponent(ListView1);
  finally
    Stream.Free;
end;

Der Code funktioniert super!

Mein Problem ist jetzt aber, dass ich diese gespeicherte Datei noch verschlüsseln möchte.
Ich habe schon etliche Verschlüsselungscodes ausbrobiert, die bei einem ganz normalen Text
auch gut funktionieren, aber bei dieser Datei tritt nach dem Entschlüsseln ein Filestream Lade-Fehler auf!
Ich habe auch schon alles ausprobiert, um diese Problem zu lösen, aber es bis jetzt nicht geschafft.
Für eine Antwort oder Erklärung wäre ich sehr dankbar.