Question

如何在delphi程序中为某一控件添加自定义事件

Answer 1

像定义属性一样，类型为TNotifyEvent。
如
private
FMyEvent: TNotifyEvent;
public
MyEvent: TNotifyEvent read FMyEvent write FMyEvent;

在你需要触发事件的地方调用以下代码：
if Assinged(FMyEvent)
FMyEvent(Self);