能声明事件为接口属性吗？(30分)

property OnConnect: TNotifyEvent read FOnConnect write FOnConnect;想把Onconnect在接口中声明为属性。有没有什么要注意的问题？
接口中应该这定义
IMyInterface = interface
procedure SetOnConnect(val : TNotifyEvent);
function GetOnConnect : TNotifyEvent;
property OnConnect : TNotifyEvent read GetOnConnect write SetOnConnect;
end;
实现类中

TMyImpl=class (TInterfacedObject,IMyInterface)中
定义FOnConnect:TNotifyEvent;
function TCommunication.GetOnConnect: TNotifyEvent;
begin
Result:=FOnConnect;
end;

procedure TCommunication.SetOnConnect(val : TNotifyEvent);
begin
FOnConnect:=Val;
end;
这样可以吗？

可以

谢谢