onClick 事件(5分)

我的窗体中有两个按钮，我想在一个按钮的click事件当中调用另一个按钮的click事件怎么作？
如：
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.text='' then begin
edit.text='me'
end else begin
[blue][brown]form1.Button1.Action :=form1.Button2.OnClick [/brown];[/blue]
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if Edit1.text='me' then begin
edit.text='go'
end else begin
[blue][brown]form1.Button1.[red]Action [/red] :=form1.Button2.OnClick [/brown];[/blue]
end;
end;

比如在BUTTON1中调用BUTTON2的click事件
button2.onclick(sender);

button2.onclick(nil);

直接Button.Click

Button2Click(nil)啊

谢谢！！！

接受答案了.