Test where Delphi allocates local variables of anonymous methods

gistfile1.pas

program inner_var;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
  TCmd = (SET_VALUE, WRITE_VALUE);
  TServerProc = reference to procedure(cmd: TCmd; data: Integer);

var
  procArr: array[1..5] of TServerProc;

procedure StackMangler;
var arr: array[1..100] of Integer;
    i: Integer;
begin
  for i := 1 to 100 do
    arr[i] := 777;
end;

procedure Factory;
var i: Integer;
begin
  for i := 1 to 5 do
  begin
    procArr[i] :=
      procedure (cmd: TCmd; data: Integer)
      var storedValue: Integer;
      begin
        case cmd of
          SET_VALUE: storedValue := data;
          WRITE_VALUE: Writeln(storedValue);
        end;
      end;
  end;
end;

var i: Integer;
begin
  Factory();
  for i := 1 to 5 do
  begin
    procArr[i](SET_VALUE, i);
    procArr[i](WRITE_VALUE, 0);
  end;

  StackMangler();

  for i := 1 to 5 do
  begin
    procArr[i](WRITE_VALUE, 0);
  end;
  Readln;
end.

Result of execution:

1
2
3
4
5
777
777
777
777
777