Pasar valores a una variable tipo const

[jachguate]

Si estas trabajando con métodos de clase, podes declarar Valor como un atributo de la misma (que se inicializa automáticamente a cero).

De manera que en la primera llamada al método, valdra 0, y en las siguientes, conservará el último valor asignado:

Probá este pequeño ejemplo:

Código Delphi [-]
Type
  TForm1 = class(TForm)
  ...
  private
    FValor : Integer;  //atributo de clase
  end;

  Procedure Button1Click(Sender : TObject);
  begin
    inc(FValor);
    label1.caption := IntToStr(FValor);  
    //la primera vez valdra 1, y se va incrementando en cada clic del boton.
  end;

Hasta luego.