E2228 dispinterface が指定されたインターフェースでは，上位インターフェースは指定できません (Delphi)

エラーと警告のメッセージ（Delphi） への移動

dispinterface が指定されたインターフェースでは，上位インターフェースは指定できません。

program Produce;

  type
    IBase = interface
    end;

    IExtend = dispinterface (IBase)
    ['{00000000-0000-0000-0000-000000000000}']

    end;

begin
end.

{ 上の例では，IExtend に上位インターフェースを指定しているのでエラーとなる }

program Solve;

  type
    IBase = interface
    end;

    IExtend = dispinterface
    ['{00000000-0000-0000-0000-000000000000}']

    end;

begin
end.

{ 通常このエラーの解決策は 2 つある。上位インターフェースの宣言を削除するか，dispinterface を通常の interface 型に変更する。上記の例では，最初の方法を使用している }