功能说明:同时响应一个事件
procedure TForm1.Button1Click(Sender: TObject);
begin
IfTbutton(sender).Name='Button1'then showmessage('你单击了Button1');
IfTbutton(sender).Name='Button2'then showmessage('你单击了Button2');
IfTbutton(sender).Name='Button3'then showmessage('你单击了Button3');
end;