E2230 dispinterface 型の中で宣言されるメソッドには，呼び出し規約指令は指定できません (Delphi)

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

dispinterface 型の中で宣言されるメソッドには，呼び出し規約指令は指定できません。

program Produce;

  type
    IBase = dispinterface
    ['{00000000-0000-0000-0000-000000000000}']
      procedure yamadama; register;
    end;

begin
end.

{ ここでは，yamadama メソッドで register 呼び出し規約を指定しているのでエラーとなる }

program Solve;

  type
    IBase = dispinterface
    ['{00000000-0000-0000-0000-000000000000}']
      procedure yamadama;
    end;

begin
end.

{ dispinterface のメソッドには呼び出し規約指令を指定できないので，次のように問題の指令を削除すれば問題は解決する }