TreeView:einträge selbst speichern

[mimi]

Hallo,
ich möchte gerne einträge ohne die funktion SaveToFile speichern denn ich muss die einträge in ein eigens format speicher das so aussieht:

Delphi-Quellcode:

test1\0\1\2
3
test444\test5

das einlesen funktioniert schon auch das löschen nur beim speichern komme ich nicht weiter .
das einlesen funktioniert so:

Delphi-Quellcode:

procedure TForm5.FillTreeView(Datei:TFileName;TreeView:TTreeView);
var
  i,t:Integer;
  daten:TStringList;
  str:String;
  temp:TTreeNode;
begin
  daten:=TStringList.Create;
  daten.LoadFromFile(Datei);

  for i:=0 to Daten.Count-1 do begin
    str:=Daten.Strings[i];
    temp:=nil;
    for t:=1 to NumToken(str,'\') do begin
      temp:=TreeView.Items.AddChild(temp,Gettoken(str,'\',t))
    end;
  end;
end;
//das löschen so:
  if MessageDlg('Wirklich löschen ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    TreeView1.Selected.Delete;

und beim speichenen müste er das genau in diesen format speichern:

Delphi-Quellcode:

test1\0\1\2
3
test444\test5

ich habe die Forensuche benutzt und habe leider nichts gefunden was mir weiter geholfen hätte