请问怎样设置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];
行不行呢？