[Yacudzer]

Друзья, помогите разобраться. Не могу понять в чем дело.
Вот код

Код:

........ какой то код .........
type
  TListFreq = array of integer;
........ какой то код .........
procedure TYarHuffman.Compress;
var
  vector:TListFreq;
begin
StreamOut.SetByte(symsize);
encode:=true;
towrite:=nil;
vector:=nil;
........ какой то код .........
vector:=Tree.GetVectList;
........ какой то код .........
vector:=nil; {**}

В месте где помечено звездами при обнулении массива почему то выползает Эксепшн: invalid pointer operation. Метод Tree.GetVectList возвращает этот же тип - дин. массив целых чисел. Не могу понять в чем дело? Кто неверно с памятью работает? Возникает только при больших размерах массива vector. При маленьких все нормально. Если закоментить эту строку, то эксепшн выползет при завершении функции.