这个精巧的方法不是我想出来的，但挺不错的，所以在这推荐给大家，来源于：
https://forums.embarcadero.com/thread.jspa?threadID=47819
源代码我下载好了，放在附件里了。
下面的内容是原文中的用法示例，我只是翻译了一下，这样即使你不了解 multicast delegate 也可以快速看到这个方法的效果。
*****************************************************************************************
在我的multicast delegate方法里，TDelegate<T>可以被声明成象下面这样：
TSomeForm = class(
TForm)
private
FOnChange: TDelegate<TNotifyEvent>;
end;
TDelegate<TNotifyEvent>类型不需要创建，销毁，或其它的什么管理。它是一个用于引用过程的简单泛型存储器。
要给FOnChange增加一个事件，你可以这样写：
FOnChange.Add(ChangeHandlerOne);
FOnChange.Add(ChangeHandlerTwo);
注意FOnChange不需要初始化，而多个事件过程就可以被加进来。在这个示例里用的一个句柄过程是这样的：
procedure TSomeForm.ChangeHandlerOne(
Sender: TObject);
begin
ShowMessage(
'Change event one fired');
end;
如果要移除一个事件句柄你可以这样写：
FOnChange.Remove(ChangeHandlerOne);
如果要调用事件列表，你可以这样写：
procedure TSomeForm.DoChange(
Sender: TObject);
var
Event: TNotifyEvent;
begin
for Event in FOnChange do Event(
Sender);
end;
在调用事件之前，你不需要检测FOnChange或事件是否已分配。
你也可以通过特定的接口，约束访问add和remove方法的外部代码。
IDelegate<T> = interface
procedure Add(
const Handler: T);
procedure Remove(
const Handler: T);
end;
使用这个接口的话，你可以象这样通过属性暴露FOnChange
private function GetOnChange: IDelegate<TNotifyEvent>;
public property OnChange: IDelegate<TNotifyEvent> read GetOnChange;
...
function TSomeForm.GetOnChange: IDelegate<TNotifyEvent>;
begin
Result := FOnChange;
end;
这样的效果就是，外部代码可以在FonChange上增加和移除代码，但不能调用与FOnChange关联的事件过程
更进一步，你可以自定义delegate类型。
TNotifyHandler = reference to procedure(
Sender: TObject);
TNotifyDelegate = TDelegate<TNotifyHandler>;
INotifyDelegate = IDelegate<TNotifyHandler>;
总的来说，所有的东西都可以使用类似的代码放在一起。请注意，没有必要创建、摧毁或管理FOnChange事件。
type
TSomeForm = class(
TForm)
private
FOnChange: TNotifyDelegate;
function GetOnChange: INotifyDelegate;
protected
procedure DoChange(
Sender: TObject);
virtual;
public
property OnChange: INotifyDelegate read GetOnChange;
end;
...
procedure TSomeForm.DoChange(
Sender: TObject);
var
Event: TNotifyHandler;
begin
for Event in FOnChange do Event(
Sender);
end;
function TSomeForm.GetOnChange: INotifyDelegate;
begin
Result := FOnChange;
end;
然后，其它的代码可以追加/添加事件名柄，像这样：
SomeForm.OnChange.Add(SomeFormChanged);
SomeForm.OnChange.Remove(SomeFormChanged);
