[angvelem]

Можно так:

1. Способ с применением директивы {$J+}/{$J-}:

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  {$J+} //Директива, разрешающая изменять значения типизированных констант.
  Cnt : Integer = 0;
  {$J-}
begin
  Inc(Cnt);
  ShowMessage('Счётчик нажатий кнопки: ' + IntToStr(Cnt));
end;

2. Способ с применением указателя на типизированную константу:

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  Cnt : Integer = 0;
var
  PCnt : ^Integer;
begin
  PCnt := @Cnt;
  Inc(PCnt^);
  ShowMessage('Счётчик нажатий кнопки: ' + IntToStr(Cnt));
end;