这个button事件如何写？谢！！！！！！！

Question

如果只有一个根结点
treeview1.TopItem.Collapse(true);
如果有多个根结点
procedure TForm1.Button1Click(Sender: TObject);
var
  tempnode: TTreenode;
begin
  treeview1.TopItem.Collapse(true);
  tempnode :=  treeview1.TopItem.getNextSibling;
  while tempnode <> nil do
  begin
    tempnode.Collapse(true);
    tempnode:=tempnode.getNextSibling;
  end;
end;对于某一个节点
var
  selnode: TTreenode;
begin
  selnode:=treeview1.selected;
  selnode.Collapse(true);
end;