type
  PointerLocal = procedure(_EBP: Pointer);

procedure proccall(p: pointer);
begin
  PointerLocal(p)(get_caller_frame(get_frame));
end;

procedure t1;
var
  l : longint;

  procedure t2;

    procedure t3;

      procedure t4;
        begin
          l := 5;
        end;

      begin { t3 }
        proccall(@t4);
      end;

    begin { t2 }
      t3;
    end;

  begin { t1 }
    l := 0;
    t2;
    if (l <> 5) then
      halt(1);
  end;

begin
  t1;
end.