E2139 メッセージメソッドのインデックスが間違っています (Delphi)

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

メッセージインデックスに 0 以下の値を指定しました。

program Produce;

  type
    Base = class
      procedure Dynamo(VAR x : Integer); message -151;
    end;

  procedure Base.Dynamo(VAR x : Integer);
  begin
  end;

begin
end.

{ メッセージインデックスとして -151 を指定してはならない }

program Solve;

  type
    Base = class
      procedure Dynamo(VAR x : Integer); message 151;
    end;

  procedure Base.Dynamo(VAR x : Integer);
  begin
  end;

begin
end.

{ メッセージインデックスの値は必ず 1 以上にする }