Inhalt eines TreeView verschlüsselt speichern

[MisterNiceGuy]

Hi, wie kann ich den Inhalt eines TreeViews verschlüsselt speichern?
Bis jetzt mache ich das ganze etwas umständlich:

Delphi-Quellcode:

procedure TForm1.save(Filename:string);
  var TempFile:TStringList;
      TempKey:TWordTriple;
      TempStream:TMemoryStream;
begin
  TempKey[0] := 1;
  TempKey[1] := 3;
  TempKey[2] := 9;
  TempStream := TMemoryStream.Create;
  treeview1.SaveToStream(TempStream);
  TempFile := TStringList.Create;
  TempStream.seek(0,sofromBeginning);
  TempFile.LoadFromStream(TempStream);
  TempFile.Text := TextDecrypt(TempFile.Text,TempKey);
  TempFile.SaveToFile(FileName);
end;

Die Methode TextDecrypt(String,TWordTriple) verschlüsselt einen Text nach dem Key.
Gibt es da eine einfachere Lösung?

[himitsu]

gibt es von dem TextDecrypt auch eine binäre Version?
dann könntest du (ich denk mal) recht leicht im TMemoryStream verschlüsseln.

Aber warum willst du die TreeView verschlüsseln?
irgendwo kommen doch die angezeigten Daten her ... verschlüssel doch gleuch diese.
Hätte auch den Vorteil, daß du dann nicht an die TreeView gebunden bist.