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

Question

请教你一个问题：我写的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;