БД TreeView-прикрепление файлов за ветвями и редактирование

procedure TForm1.Button5Click(Sender: TObject);
begin
TreeView1.SaveToFile('E:/БД ЦИТ Delphi/1.txt');
end;// Сохранение
 
procedure TForm1.Button6Click(Sender: TObject);
begin
TreeView1.LoadFromFile('E:/БД ЦИТ Delphi/1.txt');
end;// Загрузка
 
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
Numer, i:Integer;
begin
for i := 1 to TreeView1.Items.Count-1 do
if TreeView1.Items[2].Selected then  // выбираем номер ветки
Memo1.Lines.LoadFromFile('E:/БД ЦИТ Delphi/Сектор/1.txt'); // загружаем в Мemo
 
...
 
if TreeView1.Items[19].Selected then
Memo1.Lines.LoadFromFile('E:/БД ЦИТ Delphi/Сектор/10.txt');
end;
 
end.

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
Numer, i:Integer;
begin
  for i := 1 to TreeView1.Items.Count-1 do
    if TreeView1.Items[i].Selected then  // выбираем номер ветки
      Memo1.Lines.LoadFromFile(Memo2.Lines[i]); // загружаем в Мemo
end;