E2231 dispinterface 型に指定できない '%s' 指令を指定しています (Delphi)

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

dispinterface 型に指定できない節を指定しています。

program Produce;

  type
    IBase = dispinterface
    ['{00000000-0000-0000-0000-000000000000}']
      function Get : Integer;

      property BaseValue : Integer read Get;
    end;

    IExt = interface (IBase)
    end;


begin
end.
	program Solve;

  type
    IBase = dispinterface
    ['{00000000-0000-0000-0000-000000000000}']
      function Get : Integer;

      property BaseValue : Integer;
    end;

begin
end.