Чтение и запись параметров в xml

[BioHEX]

Доброго времени суток. Такая проблемка при чтении параметров выкидывает ошибку "access violation". Не могу врубиться в чем дело. Вот модуль для работы с xml UseXML.rar

Процедура записи:

procedure SaveOptions(FileName: String);
var
 i:Integer;
begin
 CreateXML;

 CreateNodeText('main','');
 CreateAttribute(['main'],'ver','1.2');
 CreateNodeText(['main'],'ListView1','');

 for i:=0 to ListView1.Items.Count-1 do
  begin
   CreateNodeText(['main','ListView1'],'Item'+IntToStr(i),'');
   CreateAttribute(['main','ListView1','Item'+IntToStr(i)],'Caption',ListView1.items[i].Caption);
   CreateAttribute(['main','ListView1','Item'+IntToStr(i)],'SubItem0',ListView1.items[i].SubItems.Strings[0]);
   CreateAttribute(['main','ListView1','Item'+IntToStr(i)],'SubItem1',ListView1.items[i].SubItems.Strings[1]);
   CreateAttribute(['main','ListView1','Item'+IntToStr(i)],'SubItem2',ListView1.items[i].SubItems.Strings[2]);
  end;

 SaveXML(FileName);
 DestroyXML;
end;

Процедура чтения:

procedure LoadOptions(FileName: String);
var
 i:Integer;
 ListItem:TListItem;
begin
 CreateXML;
 LoadXML(FileName);

 Label1.Caption:=IntToStr(GetNodesCount(['main','ListView1']));

 for i:=0 to GetNodesCount(['main','ListView1'])-1 do
  begin
   ListItem:=ListView1.Items.Add;
   ListItem.Caption:=GetNodeItemText(['main','ListView1','Item'+IntToStr(i)],'Caption');
   ListItem.SubItems.Add(GetNodeItemText(['main','ListView1','Item'+IntToStr(i)],'SubItem0'));
   ListItem.SubItems.Add(GetNodeItemText(['main','ListView1','Item'+IntToStr(i)],'SubItem1'));
   ListItem.SubItems.Add(GetNodeItemText(['main','ListView1','Item'+IntToStr(i)],'SubItem2'));
  end;

 DestroyXML;
end;

[mihali4]

А поставить бряку на строку

LoadXML(FileName);

и пройтись по шагам - религия запрещает ?

[BioHEX]

О чудо, я нашёл ошибку. Восхвалим же великий отладчик. Благодарю за подсказку (ступил).
Теперь бы придумать как её исправить