Странная ошибка с анонимными методами в разделе «инициализация»

Question

Этому устройству не удается скомпилироваться в XE2 Update 3 с ошибкой «Внутренняя ошибка: SY6315». В XE такой проблемы нет.

unit Test;

interface

uses
  SysUtils;

var
  Proc: TProc;

implementation

initialization
   Proc := procedure
    var ByteArr: array of Byte;
    begin
      SetLength(ByteArr, 10);
    end;

end.

У кого-нибудь есть опыт решения этой проблемы?

Обновление : Я отправил отчет о контроле качества: QC # 102888 .

Answer 1

Похоже на ошибку компилятора, это обходной путь, использующий TBytes

   Proc := procedure
    var
     ByteArr: TBytes;
    begin
      SetLength(ByteArr, 10);
    end;