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?