Добрый день. Подскажите, кто знает. Есть такой код:

code:
procedure TForm1.btn1Click(Sender: TObject);
type
  TLn = record
    aaa: array[0..100000] of Integer;
    bbb: string;
  end;
var
  iA: Integer;
  mas: array of TLn;
begin
  mas := nil;
  for iA := 0 to 1000 do SetLength(mas, Length(mas) + 1);
  lbl1.Caption := 'Done';
end;

В RAD studio 10 Seattle и ниже все выполняется нормально и практически мгновенно. А вот в RAD Studio 10.1 Berlin время выполнения Setlength с ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83330