E2195 ローカル変数は初期化できません (Delphi)

エラーと警告のメッセージ（Delphi） への移動

ローカルで初期化済み変数は使用できません。

program Produce;

  var
    j : Integer;

  procedure Show;
    var i : Integer = 151;
  begin
  end;

begin
end.

{ Show 手続き内の i の宣言と初期化は違法である }

program Solve;

  var
    j : Integer;

  procedure Show;
    var i : Integer;
  begin
    i := 151;
  end;

begin
  j := 0;
end.

{ プログラムのスタイルを使ってすべての変数に値を設定できる }