E2182 '%s' 節は OLE オートメーション部に置くことはできません (Delphi)

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

OLE オートメーション部では index，stored，default，nodefault の各指令は使用できません。

program Produce;

  type
     Base = class
       v : integer;
       procedure setV(x : integer);
       function getV : integer;
       automated
       property Value : integer read getV write setV nodefault;
     end;

  procedure Base.setV(x : integer);
  begin v := x;
  end;

  function Base.getV : integer;
  begin getV := v;
  end;

begin
end.

{ automated プロパティには nodefault 節を組み込めない }

program Solve;

  type
     Base = class
       v : integer;
       procedure setV(x : integer);
       function getV : integer;
       automated
       property Value : integer read getV write setV;
     end;

  procedure Base.setV(x : integer);
  begin v := x;
  end;

  function Base.getV : integer;
  begin getV := v;
  end;

begin
end.

{ エラーを起こした節を削除すればエラーはなくなる。あるいは，そのプロパティを automated 部から外に出してもエラーはなくなる }