Ошибка из ниоткуда при работе с XML в Delphi

const div1='«'; div2='»'; div3='¦';
type twocharz=string[2];myint=-1..65533;
var msgs:array[0..1]of string[$FF];msgl:twocharz;
procedure changeLng(Lng:twocharz;Form:tForm;LngFile:string='lng.dat');
var s,h,n:string;l:tStringList;i,k,v:myint;c:tComponent;
begin
l:=tStringList.Create;
l.LoadFromFile(LngFile);
if Form<>nil then begin
i:=l.IndexOf(div1+Form.Name+div2+Lng);
if i>-1 then begin
for k:=i+1 to l.Count-1 do begin
s:=l.Strings[k];
if s[1]=div1 then break;
v:=pos('=',s);
if v=0 then continue;
if v=1 then begin
Form.Caption:=copy(s,2,length(s)-1);
end;
n:=copy(s,1,v-1);
s:=copy(s,v+1,length(s)-v);
v:=pos(div3,s);
if v>1 then begin
h:=copy(s,v+1,length(s)-v);
s:=copy(s,1,v-1);
end else h:='';
c:=Form.FindComponent(n);
if c=nil then continue;
try
if h<>'' then begin
tLabel(c).Hint:=h;
tLabel(c).ShowHint:=true;
end;
if s<>'' then tLabel(c).Caption:=s;
except end;
end;
Form.Update;
end;
changeLng(Lng,nil,LngFile);
end else begin
if msgl<>Lng then begin
i:=l.IndexOf(div1+div2+Lng);
if i>-1 then begin
for k:=i+1 to l.Count-1 do begin
s:=l.Strings[k];
if s[1]=div1 then break;
v:=pos('=',s);
if v=0 then continue;
n:=copy(s,1,v-1);
s:=copy(s,v+1,length(s)-v);
try v:=strtoint(n);
except continue;end;
if(v>=low(msgs))and(v<=high(msgs))then msgs[v]:=s;
end;
end;
msgl:=Lng;
end;
end;
l.Free;
end;

function xlng_find_language_node(LangDoc: TXMLDocument; Language: ShortString): IXMLNode; stdcall; 
{ Поиск языковой ноды }
var
  c: integer;
  ln: IXMLNode;
begin
  c:=0;
  while c <> LangDoc.DocumentElement.ChildNodes.Count do
{ Сравнение содержимого атрибута id ноды с искомым идентификатором }
  if VarToStr(LangDoc.DocumentElement.ChildNodes[c].Attributes['id']) = Language then
  begin { Нода найдена }
    ln:=LangDoc.DocumentElement.ChildNodes[c];
    c:=LangDoc.DocumentElement.ChildNodes.Count
  end else
  begin
    c:=c+1; { Нода не найдена }
  end;
  result:=ln
end;
 
function xlng_find_xmlnode_by_name(LangDoc: TXMLDocument; ComponentName: ShortString; Language: ShortString): IXMLNode; stdcall; // Поиск ноды по имени компонента
var
  c: integer;
  res, ln: IXMLNode;
begin
  res:=NIL;
  if LangDoc.Active then
  begin
    ln:=xlng_find_language_node(LangDoc, Language); // Поиск языка. Выше
    if ln <> NIL then
    begin
      c:=0;
      while c <> ln.ChildNodes.Count do
{ Сравниваем содержание атрибута name ноды с искомым именем }
      if VarToStr(ln.ChildNodes[c].Attributes['name']) = ComponentName then 
      begin { Имя найдено }
        res:=ln.ChildNodes[c];
        c:=ln.ChildNodes.Count
      end else c:=c+1 { Имя не найдено }
    end
  end;
  result:=res
end;
 
function xlng_component_caption(LangDoc: TXMLDocument; ComponentName: ShortString; Language: ShortString): ShortString; stdcall; // Поиск кэпшна
var
  xn: IXMLNode;
  rbf: ShortString;
  res: ShortString;
begin
  res:='';
  xn :=xlng_find_xmlnode_by_name(LangDoc, ComponentName, Language); // Поиск ноды. Выше
  if xn <> NIL then
  begin
    rbf:=xn.Text; // Ищем в текстовом содержании ноды
    if Length(rbf) <= 254 then
    if rbf = '' then res:='-em-' else res:=rbf // Нода пустая
    else res:='-tl-' {res:=Copy(rbf,1,255)} // Нода слишком большая
  end else res:='-nn-'; // Нода не найдена
  result:=res
end;
 
function xlng_component_hint(LangDoc: TXMLDocument; ComponentName: ShortString; Language: ShortString): ShortString; stdcall; // Поиск подсказки
var
  xn: IXMLNode;
  rbf: ShortString;
  res: ShortString;
begin
  res:='';
  xn :=xlng_find_xmlnode_by_name(LangDoc, ComponentName, Language);
  if xn <> NIL then
  begin
    rbf:=VarToStr(xn.Attributes['hint']); // Ищем в атрибуте HINT
    if Length(rbf) <= 254 then
    if rbf = '' then res:='-eh-' else res:=rbf
    else res:='-lh-' {res:=Copy(rbf,1,255)}
  end else res:='-nh-';
  result:=res
end;
 
function xlng_translate_statictext(LangDoc: TXMLDocument; Component: TStaticText; Language: ShortString): byte; stdcall; // Функция, вызывающая исключение
var
  res: byte;
  sb: ShortString;
begin
  sb:=xlng_component_caption(LangDoc, Component.Name, Language); // Ищем ноду с кэпшном. Выше
  res:=0;
  if sb = '-em-' then res:=$21; // Пустая строка
  if sb = '-tl-' then res:=$22; // Строка большая, чем 254 символа
  if sb = '-nn-' then res:=$20; // Нода не найдена
  if res = 0 then Component.Caption:=sb;
  if res = 0 then
  begin
    sb:=xlng_component_hint(LangDoc, Component.Name, Language); // То же самое, только с подсказкой
    if sb = '-eh-' then res:=$25;
    if sb = '-lh-' then res:=$26;
    if sb = '-nh-' then res:=$24;
    if res = 0 then Component.Hint:=sb
  end;
  result:=res
end;

procedure TXLNGEditor.TranslateForm;
begin
  xlng_translate_statictext(XMLDocument,stt_key,'RU');
  xlng_translate_statictext(XMLDocument,stt_value,'RU');
  xlng_translate_statictext(XMLDocument,stt_save,'RU');
  xlng_translate_statictext(XMLDocument,stt_open,'RU');
  SaveDialog.Title:=stt_save.Caption;
  OpenDialog.Title:=stt_open.Caption;
  VLEdit.TitleCaptions.Strings[0]:=stt_key.Caption;
  VLEdit.TitleCaptions.Strings[1]:=stt_value.Caption;
end;