//[Save]ボタン
procedure TForm1.Button6Click(Sender: TObject);
begin
  //tree.iniに保存
  TreeView1.SaveToFile(ExtractFilePath(Application.ExeName) + 'tree.ini');
  //list.iniを更新
  FListIni.UpdateFile;
end;

//[Load]ボタン
procedure TForm1.Button7Click(Sender: TObject);
begin
  //tree.iniを読込
  TreeView1.LoadFromFile(ExtractFilePath(Application.ExeName) + 'tree.ini');
  TreeView1.Items[0].Selected := True; 
  //ListView1を表示
  TreeView1Change(Sender,TreeView1.Items[0]);
end;