关于delphi 中 Sender的学习

sender是 事件的触发者，我发现所有的组件的事件 基本上都是 传Sender。

示例效果图：

代码：

 接着来，既然TButton是个类，且publish哪里有事件，我们也可以看看这个事件的原型。