720さんのコードのようにローカル変数的に書いても値が保持され続ける
というのはなんか気持ち悪いね

const
　変数名: 型名 = 初期値;

procedure　〜
var
　・
　・
　・

こうしたい気分