procedure TForm1.Button6Click(Sender: TObject);
begin
  //全てのノードを消去
  TreeView1.Items.Clear;
end;