Не видит содержимое текущего класса из короткой лямбды, если она захватывает локальную переменную и вызывает метод расширения

[SunSerega]

var res := 0;

// Обязательно отдельная подпрограмма в которую передаётся лямбда
// Если присваивать лямбду переменной - не воспроизведётся
procedure p1(a: ()->()) := a();

type t0 = class end;

// Обязательно p2 - extensionmethod
// С обычным методом не воспроизведётся
procedure p2(self: t0; x: byte); extensionmethod := res += 1;

type
  t1 = class
    o: t0;
    
    procedure p3;
    begin
      // Обязательно захватить локальную переменную
      var x := default(byte);
      
      // Обязательно короткая лямбда
      // Если сделать ей тело "begin-end" - не воспроизводится
      
      // OK
      p1(()->self.o.p2(x));
      //Ошибка: Неизвестное имя 'o'
      p1(()->     o.p2(x));
      
    end;
    
  end;
  
begin
  t1.Create.p3;
  Assert(res=2);
end.

[SunSerega]

При чём раньше и в лямбдах с телом begin-end воспроизводилось.
Но в какой то момент перестало и теперь только короткие сломаны.