delphi – 为什么没有使用常量时没有警告或提示？

我试图向另一个人展示一些代码,当我巧妙地认识到,当没有使用声明的变量时,有编译器提示消息,当没有使用声明的常量时没有提示或消息.以下代码是一个例子：

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,Math;

const
  intM: Integer = 1000;

var
  valorDouble,notusedvar: Double;

begin
  try
    valorDouble   := 0.001;
    Writeln('--- Codigo atual --');
    Writeln('Double   -> ',Trunc(valorDouble   * 1000));
    Writeln('--- Correcao?? --');
    Writeln('Trunc(1.0000001) -> ',Trunc(1.0000001));
    Writeln('Trunc(0.001 * 1000.0)   -> ',Trunc(0.001 * 1000.0));
    Writeln('Trunc(0.0010 * 1000.0)  -> ',Trunc(0.0010 * 1000.0));
    Writeln('Trunc(0.00100 * 1000.0) -> ',Trunc(0.00100 * 1000.0));

    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName,': ',E.messagE);
  end;
end.

为什么没有关于未使用的常量的暗示？关于这种差异有任何合理的解释吗？

procedure DoSomething(const Value: Integer); stdcall;

const
  CON_ONE = 1;
  CON_TWO = 2;
  CON_THREE = 3;
  //Maybe @R_872_4892@