COBCH0820 '<名前>' はみつからないか Delegate クラスでない

デリゲート型が必要ですが見つかりません。

これは、delegate-invocation-expression をデリゲート型のオブジェクトに解決できない場合、または EVENT キーワードがデリゲート型ではないフィールドに指定されている場合に発生します。

delegate-id MessageHandler (str as string)
end delegate.
class-id DelegatesEvents.
01 MessageSnooze string EVENT STATIC.                *> this causes the error
01 MessageArrived EVENT type MessageHandler STATIC.  *> this does not
...