如何向TForm的后代添加事件？

Question

我正在使用Delphi 7

我想为TForm的后代创建一个新事件，让我们说OnApprove（将在工具栏点击时执行），我希望这个新事件出现在对象检查器上。

请建议我该怎么做？

感谢。