procedure TForm1.Button1Click(Sender: TObject); {$J+} const I: Integer = 1; {$J-} begin Inc(I); ShowMessage(IntToStr(I)); end;