如何在unigui中用代码展开一棵树？

procedure expandtree(tree:tunitreeview);
begin
   UniSession.AddJS('setTimeout("' + Tree1.JSName + '.expandAll()", 500)');
end;