помогите с xml парсингом

[MAPODEP]

подскажите по поводу xml парсинга, уже второй день мучаюсь, не получается спарсить текст между такими строками
<text>....</text>
<photo_604>...</photo_604>
<comments>...</comments>
<likes>...</likes>
<reposts>...</reposts>
<from_id>...</from_id>

код

procedure TForm2.Button3Click(Sender: TObject);
var
i,j, n: integer;
s,t,TmpStr:string;
Nodes, nodes1: IXMLDomNodeList;
doc :IXMLDOMDocument;
begin
Doc := CreateComObject(CLASS_DOMDocument) as IXMLDOMDocument;
Doc.load('data.xml');
 Nodes := Doc.selectNodes('//post/*');
 //Nodes1 := Doc.selectNodes('//attachment/*');
 n:=0;
 memo2.Clear;
   for i:=0 to Nodes.length-1 do
     begin
         if Nodes[i].nodeName='text' then
           begin
              n:=n+1;
              memo2.Lines.Add(Format('%s', [Nodes[i].text]));
           end;
         if Nodes[i].nodeName='photo_604' then
           begin
            memo2.Lines.Add(Format('%s', [Nodes[i].text]));
           end;
         if Nodes[i].nodeName='comments' then
           begin
           memo2.Lines.Add(Format('%s', [Nodes[i].text]));
           end;
         if Nodes[i].nodeName='likes' then
           begin
             memo2.Lines.Add(Format('%s', [Nodes[i].text]));
           end;
         if Nodes[i].nodeName='reposts' then
           begin
             memo2.Lines.Add(Format('%s', [Nodes[i].text]));
           end;
         if Nodes[i].nodeName='from_id' then
           begin
             memo2.Lines.Add(Format('%s', [Nodes[i].text]));

           end;

     end;
Doc := nil;
end;

[evg_m]

возможности XML path
и его применение в Delphi