Vielleicht hilft es was. Mit der Compiler-Direktive {$J+} kann man festlegen, ob typisierte Konstanten geändert werden können.
Delphi-Quellcode:
procedure Run;
const
{$J+} C: Integer = 0; {$J-}
begin
Inc (C);
// ...
end;
Man könnte im Constructor ggf. die Konstante anpassen. Der Ansatz von Uwe Raabe mit strict private const finde ich aber auch sauberer.