Beni uğraştırdığı için buraya eklemeyi uygun gördüm , belki bu konuda sorunu olan arkadaşların işine yarar.

procedure TWebForm1.Button2_Click(sender: System.Object; e: System.EventArgs);
begin
  button1_click(button2,e);
end;

procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
// herhangi kodlar...
end;
Bu adreste ise daha kapsamlı olarak olayı gönderen nesnenin tipine göre davranışlar anlatılmış.
http://delphi.about.com/od/objectpascalide/a/sender.htm