TGetDesignerEvent = procedure (Sender: TObject; out ADesigner: IDesigner) of object;
(Sender: TObject; out ADesigner: IDesigner) ( TGetDesignerEvent)();
DesignIntf
This is type DesignIntf.TGetDesignerEvent.