Алгоритм сжатия Хаффмана

[onryo]

Мне нужно реализовать сжатие текста алгоритмом Хаффмана.
Я нашел неплохой исходник, но там дерево сохраняется в текстовую переменную а мне необходимо сохранить его в массив, кто может помочь.

function THuffman.decoder(data : string): string;
var
  str : String;
  c : Integer;
begin
  str := '';
  while(length(data) > 0) do
  begin
    for c:=0 to ALPHABETSIZE-1 do
    if (weights[c] > 0) AND (code[c] = copy(data, 1, length(code[c]))) then
    begin
      data := copy(data, length(code[c])+1, length(data));
      str := str + chr(c) + ' - ' + code[c] + #13;
    end;
  end;
  Result := str;
end;