delphi写activex，怎样改变默认的只能允许一次Advise

[jeng]

请教你一个问题：我写的delphi activex控件，默认的情况下连接点sink只允许一个，我想改成多个

我在 TActiveXControl 中发现了这个（如下）。
我不知道重载这个应该怎么做。
【我一直用vc的，dlphi没有用过，基本不会】
Thanks.
//--------------------------
procedure TActiveXControl.Initialize;
begin
inherited Initialize;
...
if FControlFactory.EventTypeInfo <> nil then
FConnectionPoints.CreateConnectionPoint(FControlFactory.EventIID,
ckSingle, EventConnect); //这儿就是，我需要把这儿改成ckMulti，允许多个sink
FPropertySinks := FConnectionPoints.CreateConnectionPoint(IPropertyNotifySink,
ckMulti, nil);
...
InitializeControl;
end;

[jeng]

最好能给我示例。

[jeng]

----