怎样在事件中取得对象的name属性？急

procedure TfrmClass.Button1Click(Sender: TObject);
begin
  showmessage(self.name );
end;
这儿我想显示的是点击的按钮的name属性，可是self是指当前窗体，
sender又不能用，应该用什么才能显示出当前按钮的name属性呀？
因为我要动态创建多个按钮，而按钮都是统一调用同一个事件，
在该事件中，我需要判断是哪一个按钮被按下，所以需要区分按钮的
name属性来判断。
先谢过各位大侠了，解决问题，马上给分。