请教关于 TREEVIEW的用法！！！！！！！！HELP

Question

我怎么能动态的创建 TREEVIEW的选项那例如我开始的 TREEVIEW里是空白的，我要在FORMCREATE时添加选项，况且在每个选项左边带有一个小图标作装饰程序用，我要显示的效果如下：       －学生信息                  
         |__学号                
         |__姓名

Answer 1

var
  Node:treeNode;
begin
  Node:=treeview1.Items.add(nil,'学生信息');
  treeview1.Items.add(Node,'学号');
  treeview1.Items.add(Node,'姓名');
..........
end在form中添家imagelist控件即可实现小图标作装饰

Answer 2

TO reedseutozte(haha)不太对呀，我的程序如下procedure TForm1.BitBtn1Click(Sender: TObject);
 var
  Node:treeNode;
begin
  Node:=treeview1.Items.add(nil,'学生信息');
  treeview1.Items.add(Node,'学号');
  treeview1.Items.add(Node,'姓名');
end;
结果运行时有错误提示： [Error] Unit1.pas(30): Undeclared identifier: 'treeNode'为什么那？？？？？？？？？

Answer 3

自己搞定了，定义应该如下：var
  Node:TtreeNode；
       -少了个 T谢了！给分