在程序中怎么样调用另外一个事件的处理程序？

Question

from1上有一个treeview1和button1
treeview1有一个onchange事件
procedure Tform1.treeview1Change(Sender: TObject;
  Node: TTreeNode);
var
....
begin
....
end另外有一button1的click事件
procedure Tform1.Button1Click(Sender: TObject);
begin
  if .. then 
  else
  ...........//这儿我想执行一遍onchange事件中的程序？？？？？？
end
怎么处理？

Answer 1

treeview1Change(treeview1;
  //加上你处理的节点)

Answer 2

procedure Tform1.Button1Click(Sender: TObject);
begin
  if .. then 
  else
  treeview1Change(treeview1;
  //加上你处理的节点)end

Answer 3

treeview1change(treeview1;treeview1.selected);
不行呀！

Answer 4

这样呢？TREEVIEW1.ONCHANGE（TREEVIEW1,TREEVIEW1.SELECTED);

Answer 5

他们误人子弟，你把";"变成“，”
treeview1change(treeview1,treeview1.selected);