Нужно зайти в узлы хмл-файла в делфи

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, ExtCtrls, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Memo1: TMemo;
    Splitter1: TSplitter;
    xml: TXMLDocument;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var iroot,iNode,iNode2:ixmlNode;
    str:string;
    i,x,j:integer;
begin
StringGrid1.DefaultColWidth:=120;
StringGrid1.DefaultRowHeight:=16;
StringGrid1.ColWidths[0]:=25;
StringGrid1.RowHeights[0]:=20;
StringGrid1.RowCount:=66;
 
XML.FileName:='D:\Inventory Big.xml';
xml.Active:=true;
iRoot:=XML.DocumentElement;
StringGrid1.Cells[0,0]:='№';
StringGrid1.Cells[1,0]:='Фамилия';
StringGrid1.Cells[2,0]:='Имя';
StringGrid1.Cells[3,0]:='Отчество';
StringGrid1.Cells[4,0]:='ИНН';
StringGrid1.Cells[5,0]:='Код региона';
for i:=0 to iroot.ChildNodes.Count-1 do
  begin
  StringGrid1.Cells [0,i+1]:=IntToStr(i+1);
  iNode:=iroot.ChildNodes[i]; //Автор
  iNode:=iNode.ChildNodes.FindNode('AUTHOR');
  StringGrid1.Cells [1,i+1]:=iNode.NodeValue;
 
  iNode:=iroot.ChildNodes[i]; //НАЗВАНИЕ
  iNode:=iNode.ChildNodes.FindNode('TITLE');
  StringGrid1.Cells [2,i+1]:=iNode.NodeValue;
 
  iNode:=iroot.ChildNodes[i]; //КОЛ-ВО СТРАНИЦ
  iNode:=iNode.ChildNodes.FindNode('PAGES');
  StringGrid1.Cells [4,i+1]:=iNode.NodeValue;
 
  iNode:=iroot.ChildNodes[i]; //ЦЕНА
  iNode:=iNode.ChildNodes.FindNode('PRICE');
  str:=iNode.NodeValue;
  delete(str,1,1);
 
if str[j]='.' then str[j]:=DecimalSeparator;
  StringGrid1.Cells [3,i+1]:=str;
  end;
end;
end.