很简单的一个问题（代码里调用一个控件的触发持行过程）

Question

有两个按钮，按钮1已写了一个触发过程（点击）。
要在按钮2里持行完一段代码后再持行按钮1的点击触发过程，完了后再接着持行按钮2的接下来的代码，能做到吗？呵呵，偶初学Delphi，在BCB中，上面的任务是很容易的，在Delphi中偶试了试，好象不行哦……
请大侠们教一个，在这儿谢过先。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('1');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage('2');
  self.Button1Click(nil);
  showmessage('3');
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('按钮1');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage('按钮2第一次');
  form1.Button1.Click;
  showmessage('按钮2第二次');
end;

Answer 3

参数别搞错了，
procedure TForm1.Button1Click(Sender: TObject);procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage('2');
  要么这样：
  Button1Click(nil);
  要么这样:
  Button1Click(button1);
  showmessage('3');
end;

Answer 4

谢谢二位的指点，原来问题不是出在这儿……
帮我看看怎么回事。在这儿涉及了一个ConStringGrid(StringGrid控件），一个MainServerSocket（ServerSocket控件），主要目的是中断选中的部分连接，最后来个刷新，这个刷新功能在另一个按钮ConRefrButton的触发功能里已经写了，为了程序精简，就不想重写了（主要也是学习技术）。我的代码：procedure TMainForm.ConStopAButtonClick(Sender: TObject);//这是一个按钮的触发。
Var
ALLConNumber,i,j: Integer;
IPStr,PortStr: String;
begin
ALLConNumber := MainServerSocket.Socket.ActiveConnections;for i := ConStringGrid.Selection.Top to ConStringGrid.Selection.Bottom do
  begin
    IPStr := ConStringGrid.Rows[i].Strings[1];
    PortStr := ConStringGrid.Rows[i].Strings[2];
    for j := 0 to ALLConNumber-1 do
      begin
        if(IPStr = MainServerSocket.Socket.Connections[j].RemoteAddress)then
           if(PortStr = IntToStr(MainServerSocket.Socket.Connections[j].RemotePort))then
              begin
                MainServerSocket.Socket.Connections[j].Free;
                break;
              end
      end
  end
MainForm.ConRefrButton.Click;//另一个按钮的触发，这儿为什么持行不下去？？？
end;因为需要大家帮我看代码，所以偶加分……
谢谢大家的帮助。

Answer 5

咯咯，好象知道了，原来是偶对
end
和
end;
的理解不深，嘻……本人小菜……

Answer 6

MainForm.ConRefrButton.Click
你把这个按钮事件里的内容单写在一个function里，然后
调用这个function试试看