[SOLVED] TXMLDocument: List index out of bounds.

[T-Rrexx]

Здравствуйте, уважаемые форумчане.

Возникла проблема: пытаюсь обработать XML-файл, но вылетает ошибка "List index out of bounds". Никак не могу понять причину, решения проблемы не нашел.
Вот участок XML-файла:

<?xml version="1.0" encoding="utf-8"?>
<resources>
    <string name="app_name">Hash Droid</string>
    <string name="tab_text">Hash a text</string>
    <string name="tab_file">Hash a file</string>
    <string name="tab_compare">Compare hashes</string>
</resources>

Задача: выдернуть из каждой <string> значение атрибута name и значение самой строки. Т.е. из первой строки: name='app_name', value='Hash Droid'. Надеюсь, понятно объяснил.

Вот код процедуры:

procedure Parse;
begin
  XML := TXMLDocument.Create(Form1);
  XML.LoadFromFile('I:\strings.xml');
  XML.Active := true;
  Name := XML.DocumentElement.ChildNodes['resources'].ChildNodes.Nodes[i].Attributes['name']; //вот на этой строке и вылетает ошибка
  Value := XML.DocumentElement.ChildNodes['resources'].ChildNodes.Nodes[i].Text;
  Memo1.Lines.Add('I=' + IntToStr(i) + 'Name=' + Name + 'Value=' + Value);
  XML.Active := false;
  XML.Destroy;
end;

Вменяемой документации к TXMLDocument я не нашел, поэтому код построен по аналогии с другими примерами.

Кто что посоветует?

UPD:
Вот блин, я баран слепой!
Решение проблемы: :D

    Name := XML.DocumentElement.ChildNodes.Nodes[i].Attributes['name'];
    Value := XML.DocumentElement.ChildNodes.Nodes[i].Text;

Вместо аналогичных строк в коде выше.
Извините за беспокойство. Спать иногда надо
Тему можно удалять, вряд ли она кому-то понадобится.