Xml вывод циклом его содержимое

[Anatoliy19]

добрый день
я распарсил текст xml документа но я не понимаю как в цикле вывести их, например, в LIstBox

procedure TForm1.btn1Click(Sender: TObject);
var i: Integer;
begin
  xmldcmnt1.Active := true;
  xmldcmnt1.LoadFromFile(ExtractFilePath(Application.ExeName) + '1.xml');
  i:=1 to xmldcmnt1.DocumentElement.ChildNodes[1]
  edt1.Text := VarToStr(xmldcmnt1.DocumentElement.ChildNodes[0].ChildNodes['serverid'].text);     {это из первого уровня}
  edt2.Text := VarToStr(xmldcmnt1.DocumentElement.ChildNodes[1].ChildNodes[0].ChildNodes['phish_id'].text); { второй уровень}
  edt3.Text := VarToStr(xmldcmnt1.DocumentElement.ChildNodes[2].ChildNodes['author'].text);  {3 уровень}
  xmldcmnt1.Active := false;
end;

если надо вот код xml документа:

<?xml version="1.0" encoding="utf-8"?>
	<response>
		<meta>
			<timestamp>2010-03-21T10:34:35+00:00</timestamp>
			<serverid>ebb667fe</serverid>
			<requestid>192.168.0.105.4ba5f63b8e49c7.34267757</requestid>
		</meta>
		<results>
			<url0>
				<url><![CDATA[http://www.cheapukadds.co.uk/images/SARS/Nedbank/index.html]]></url>
				<in_database>true</in_database>
				<phish_id>948253</phish_id>
				<phish_detail_page><![CDATA[http://www.phishtank.com/phish_detail.php?phish_id=948253]]></phish_detail_page>
				<verified>true</verified>
				<verified_at>2010-03-20T10:35:52+00:00</verified_at>
				<valid>true</valid>
			</url0>
		</results>
           <Inventory>
         	   <author>Иванов</author >
           </Inventory>
	</response>

[Ky3Heu,]

Извини, с твоим разбираться некогда. Кидаю пример своего кода загрузки xml. Можешь так же на листбокс поменять.

var slist :TStringList;
...
begin
for I := 0 to XMLDocument1.DocumentElement.ChildNodes.Count-1 do
begin
slist.Add(XMLDocument1.DocumentElement.ChildNodes[i].ChildNodes['p_id'].text);
end;
end;

[Человек_Борща]

var
 i:Integer;
 XML:TNativeXML;
begin
 XML:=TNativeXML.CreateName('responce');
 try
  Xml.LoadFromFile(ExtractFilePath(ParamStr(0))+'1.xml'); 
  with xml.root.NodeByName('results') do
   begin
     for i:=0 to NodesCount -1 do //Возможно NodeCount точно не помню
     begin
     ListBox1.Items.add(Nodes[i].ReadString('phish_id'));
     end; 
   end;
  finally
  FreeAndNil(xml);
  end;
end;

Примерно так, с использованием NativeXML

[Anatoliy19]

Спасибо но выдает ошибку. А как установить этот NativeXML в Delphi?

[Человек_Борща]

найти гуглом(первая ссылка) скачать и запилить в папку все pas файлы. Предварительно прочитав readme.txt т.к. там написано как устанавливать.