如何使 treeview 的叶子都在展开？多谢

求助：怎么使 treeview 的叶子都在展开？谢谢！
请教：
我用   treeview   的编辑器建了几个叶子节点
我希望程序运行的时候，叶子节点是展开的？

procedure   TMainForm.FormActivate(Sender:   TObject);
begin
                       
            //********************使     TreeView1   展开************************
            TreeView1.AutoExpand:=true;
            //********************使     TreeView1   展开************************
end;

可是没有效果啊，
应该怎么设置？

谢谢！


[解决办法]
1
for i := 0 to treeview1.Items.Count-1 do
begin
TreeView1.Items[i].Expanded := true;
end;

2
Node.Level = 1