delphi中怎样展开和关闭TreeView的所有节点

其中关闭也就是“收起”或“合拢”。。。

全部展开：Treeview1.FullExpand;  

全部收起：Treeview.FullCollapse;