How to assign an initial value when defining a local variable in Delphi
const {$ J +} num: Integer = 1; {$ J-} begin Inc (num); ShowMessage (IntToStr (num)); {2} end ; // or writing: const {$ WRITEABLECONST ON} num: Integer = 1; {$ WRITEABLECONST OFF} begin Inc (num); ShowMessage (IntToStr (num)); {2} end ;