Override von Konstanten im Objekt - Alternative?

[EdAdvokat]

so nun habe ich mir selbst einen Polizisten an die Kreuzung gestellt und jetzt pfeift er kräftig:

Delphi-Quellcode:

var ObjectA:TObjectA;
begin
  ObjectA := TObjectA.Create;
  try
    lblA.Caption:=ObjectA.testvalue;
    //ObjectA.MachWasMitTestValue;
  finally
    ObjectA.Free;
  end;
  ShowMessage('jetzt folgt die falsche aufgerufene Methode:');
  ObjectA.MachWasMitTestValue;
end;

er sagt mir zwar gemäß showMessage('jetzt folgt die falsche Methode:') und dann folgt die Fehlermeldung

Zugriffsverletzung bei Adresse 005FB878 in Modul 'PTest.exe'. Lesen von Adresse 00000000.
Also nun ist die Welt wieder rund und der Hinweis vom schönen Günter ist eingetroffen.