Button调用TreeView的Expanding，这样不对，高手指点

在TreeView中的事件Expanding
procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
  showessage('ok');
end;
然后Button调用Expanding，这样不对，高手指点
procedure TForm1.Button1Click(Sender: TObject);
begin
treeview1.OnExpanding(sender,node,true);
end;