procedure TForm1.Button5Click(Sender: TObject);
begin
  //全てのノードを展開
  TreeView1.FullExpand;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  //全てのノードを縮小
  TreeView1.FullCollapse;
end;