Takze u tlacitka Button4 mas udelanou udalost OnClick.
V objectInspector u tlacitka Button7 jako udalost OnClick vyberes z rozbalovaciho seznamu Button4Click.
A nemusis nic programovat, obe tlacitka budou pouzivat stejnou udalost.

K tomu tvemu prikladu, jako parametr pousijes Sender, ktery ti predala udalost Button7Click:

procedure TForm1.Button7Click(Sender: TObject);
begin
  tform1.Button4Click(Sender);
end;