[Кодер]

Для обработки текста в формате JSON пользуюсь всем известным классом TlkJSON.

При долгой работе моей программы в этой функции выскакивает ошибка access violation:

Код:

function TlkJSONobject.IndexOfName(const aname: WideString): Integer;
var
  mth: TlkJSONobjectmethod;
  i: Integer;
begin
  if not FUseHash then //ВОТ ЗДЕСЬ ОШИБКА
    begin
      result := -1;
      for i := 0 to Count - 1 do
        begin
//          mth := TlkJSONobjectmethod(FValue[i]);
          mth := TlkJSONobjectmethod(fList.Items[i]);
          if mth.Name = aname then
            begin
              result := i;
              break;
            end;
        end;
    end
  else
    begin
      result := ht.IndexOf(aname);
    end;
end;

С чем это может быть связано?