Немного про замыкания

Наверное для тех кто постоянно использует замыкания не будет новостью. Но вот осознал, что может существовать только одно замыкания для какого то конкретного контекста. То есть, анонимных функций может быть несколько, но анонимный класс для контекста создается один.
В этом легко убедиться:

program closuretest;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

procedure Test;
var
  i: Integer;
  m: string;
  proc, proc2: TProc;

function GetClosure1:TProc;
begin
Result := proc;
end;

function GetClosure2:TProc;
begin
Result := proc2;
end;

var
  intf1, intf2: IInterface;
begin
  i := 0;
  proc := procedure()
begin
      inc(i,2);
      Writeln(i);
end;
  proc2 := procedure()
begin
      inc(i,3);
      Writeln(i);
end;

  proc();
  proc2();

  GetClosure1.QueryInterface(IInterface, intf1);
  GetClosure2.QueryInterface(IInterface, intf2);
  Writeln(GetClosure1 = GetClosure2); //False
  Writeln(intf1 = intf2); // TRUE, что и требовалось доказать

  Read(m);
end;

begin
try
    Test;
except
on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
end;
end.