program project1;

{$mode objfpc}{$H+}
{$R *.res}

type MyClass=class
       procedure LoadLevel;
     end;

type TSomeArray=array of Integer;

procedure MyClass.LoadLevel;
var d:TSomeArray;

  procedure SubLoad(data:TSomeArray);
  begin
    SetLength(data,1000);
  end;

begin
  SubLoad(d);
end;

begin
end.