Delphi - Como varrer um XML usando o XMLDocument

procedure TForm1.Button2Click(Sender: TObject);
var i:Integer;
    xml:String;
    r: IDOMNodeList;
begin
  //Arquivo XML
  xml:='<?xml version="1.0" encoding="ISo-8859-1"?>'+
       ' <listars>'+
       '   <teste>'+
       '  <identse>12345</identse>'+
       '  <identse>54321</identse>'+
       '  <identse>11111</identse>'+
       '  <identse>22222</identse>'+
       '  <identse>67890</identse>'+
       '  <identse>09876</identse>'+
       '   </teste>'+
       '</listars>';

    //O componente XMLDocument recebe o XML escrito acima

    XMLDocument1.XML.Text:=xml;
    XMLDocument1.Active := True;

    //Pegar os elementos da tag 'identse'

    r := XMLDocument1.DOMDocument.getElementsByTagName('identse');

    //Conta o Nº de tag existente

    for I := 0 to r.length -1 do
      //Recebe todos os dados
      Memo1.Lines.Add(r.item[i].childNodes[0].nodeValue);