Du müsstest den Code so umbauen, dass das Laden und Speichern
wiederverwendbar wird.
Im Moment ist alles miteinander verwoben.
Die Prozeduren könnten diese Deklaration haben:
Delphi-Quellcode:
procedure TreeView2TStrings(tv:TTreeView; list:TStrings);
procedure TStrings2TreeView(list:TStrings;tv:TTreeView);
Von einem TStrings-Objekt ist es zum Laden und Speichern nicht mehr weit (SaveToFile, LoadFromFile).