[serenberg]

Ошибка Range Check Error;
При задании размерности массива выдает Range Check Error.
Пытался сделать через статичный массив, тогда происходило переполнение стека. Подскажите как с этим бороться, уменьшить размерность массива не могу, это географические данные.

Код:

  type
  TAz = record
      count : integer;
      distaln : array [1..2, 0..360000] of double;
  ...
procedure TForm1.Button1Click(Sender: TObject);
  var 
    AzSel : array of TAz;
  begin
   ...
   SetLength(AzSel, 3600);
   ...
   end;