"access violation"的问题

做一个组合的计算，需要用到比较大的记录数组，我定义了这么个数组：
procedure PK_2BZ() ;
var
  lv_5all : array[1..63552] of  array[1..5] of Teverypk;

下标在这个数字可以，没有问题，但这个值不够，我至少需要的是：
procedure PK_2BZ() ;
var
  lv_5all : array[1..1302540] of  array[1..5] of Teverypk;

然后，系统就报这个"access violation"的错
前面用调整 linker-max stack size，解决了一会，但增加到最大了，现在有出现这个问题了。
那位大大帮忙看看，谢谢！

TeveryPk是这么定义的：
  Teverypk = record   
    re_name : string ;
    re_pz : string ;
    re_hs : integer ;
    re_pl : integer ;
    re_px : integer ;
    re_pm : integer ;
  end ;