Утечки памяти происходят во вложенном анонимном методе

В Delphi XE следующий код вызовет утечку памяти:

procedure TForm1.Button1Click(Sender: TObject);
var P, B: TProc;
begin
  B := procedure
       begin
       end;

  P := procedure
       begin
         B;
       end;
end;

Запустите код с

ReportMemoryLeaksOnShutdown := True;

и запросом диспетчера памяти:

21-28 bytes: TForm1.Button1Click$ActRec x 1