TStringList и TFileStream сохранение в файл

[MalCer]

Здравствуйте, уважаемые форумчане

Возникла проблема следующего характера.....На форме имеются компоненты Edit, Button, TreeView, WebAddresses. По нажатию на кнопку из Edit'a берется текст, который будет моей какой-нибудь вэб-страницы сохраненные на моем компьютере. Каждому item'у присваивается имя и указатель на вэб-страницу(или адрес). Хочется сделать так, чтобы вэб-адреса и item'ы дерева сохранялись в файл и затем загружались. Вот, что получилось:

var
  Form1: TForm1;
  FS: TFileStream;
  WebAddresses: TStringList; // хранит пути к html-файлам
implementation

{$R *.dfm}
//------------------------------------------------------------------------------
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  try
    FS:=TFileStream.Create(ExtractFilePath(Application.ExeName)+'BD.file', fmCreate);
    FS.WriteComponent(TreeView1);
    WebAddresses:=TStringList.Create;
    WebAddresses.SaveToStream(FS);
    WebAddresses.Free;
  except
  end;
end;
//------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  WebAddresses.Add(Edit1.Text);
  TreeView1.Items.AddChild(TreeView1.Items.GetFirstNode, 'Item caption').Data :=
            @WebAddresses.Strings[WebAddresses.Count - 1][1];

end;
//------------------------------------------------------------------------------
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
   WebBrowser1.Navigate(StrPas(PChar(Node.Data)));
end;
//------------------------------------------------------------------------------
procedure TForm1.FormShow(Sender: TObject);
begin
  try
    FS:=TFileStream.Create(ExtractFilePath(Application.ExeName)+'BD.file', fmOpenRead);
    FS.ReadComponent(TreeView1);
    WebAddresses:=TStringList.Create;
    WebAddresses.LoadFromStream(FS);
    WebAddresses.Free;
  except
  end;
end;
//------------------------------------------------------------------------------

Как теперь все данные записать в файл?

[MaxNik2009]

Так?

    WebAddresses.SaveToFile('c:\AddrList.txt');
    WebAddresses.Free;

[MalCer]

Нет, не так
Мне нужно записать все данные в один файл. К тому же таким способом не связать итемы с ссылками