超级菜问：关于函数调用格式。如何实现点击button时调用另一个button的click函数。

Question

已经编写了一个函数：
procedure TForm1.SpeedButton1Click(Sender: TObject);
...想在下面的函数中调用SpeedButton1Click，如何实现？
即：~~~~~~~~~忘记了格式
procedure TForm1.btnsaveClick(Sender: TObject);
begin
TForm1.SpeedButton1Click(Sender: TObject);
end;

Answer 1

procedure TForm1.btnsaveClick(Sender: TObject);
begin
TForm1.SpeedButton1click(sender);或用:SpeedButton1.onclick;end;

Answer 2

SpeedButton1Click(SpeedButton1);
procedure TForm1.btnsaveClick(Sender: TObject);
begin
TForm1.SpeedButton1Click(SpeedButton1);
end;

Answer 3

procedure TForm1.btnsaveClick(Sender: TObject);
begin
  form1.SpeedButton1.Click;
end;