delphi-7 - 如何将事件添加到 TForm 的后代？

Question

我正在使用德尔福 7

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

请建议我该怎么做？

谢谢。