请教怎样设置TreeList默认触发TreeList1Click事件呢

请问怎样设置TreeList默认触发TreeList1Click事件呢?
procedure TForm1.FormShow(Sender: TObject);
begin
initTreeList;
 if TreeList1.Items.Count>1 then
 TreeList1.Items[1].Selected:=True;
TreeList1Click(Sender);
end;

procedure TForm1.TreeList1Click(Sender: TObject);
var
  node:TTreeNode;
begin
node:=TreeList1.Selected;
if node=nil then
begin
 ShowMessage('请选择类别!');
 exit;
end;

为什么一直为空呢,一直'请选择类别'?

默认已经选中了啊

或者TreeList怎么去掉默认选中呢?

[解决办法]
treelist是标准控件？d7好像还没有它

TreeList1.Items[1].Selected:=True; 说明这是用于多选的
node:=TreeList1.Selected 说明这是用于单选的

TreeList1.Items[1].Selected:=True;
改为
TreeList1.Selected:=TreeList1.Items[1];
行不行呢？

[解决办法]
楼主是像实现多选吧？
这个不是这样用的。
你把控件的multiselect设置为true
然后遍历节点 ，根据Selections来找到被选中的节点
[解决办法]
if TreeList.items.count > 0 then
begin
TreeList.Items[0].selected := true; //设置第一个为选择项
TreeListClick(TreeList); //调用单击事件
end;