<?xml version="1.0" encoding="UTF-8"?>
<response>

<lst name="responseHeader">
  <int name="status">0</int>
  <int name="QTime">1</int>
  <lst name="params">
    <str name="q">(caption:123)</str>
    <str name="wt">xml</str>
    <str name="_">1559038856394</str>
  </lst>
</lst>
<result name="response" numFound="2" start="0">
  <doc>
    <str name="path">C:\Windows\System32\notepad.exe</str>
    <int name="status">1</int>
    <date name="datetime">2019-03-19T22:10:59Z</date>
    <int name="new">0</int>
    <arr name="caption">
      <str>123 — Блокнот</str>
    </arr>
    <str name="caption_ru">123 — Блокнот</str>    
    <int name="type">1</int>
    <int name="cid">3</int>
    <long name="_version_">1634683078699909120</long></doc>
  <doc>
    <str name="path">C:\Windows\System32\notepad.exe</str>
    <int name="status">2</int>
    <date name="datetime">2019-03-19T22:11:00Z</date>
    <int name="new">0</int>
    <arr name="caption">
      <str>123 — Блокнот</str>
    </arr>
    <str name="caption_ru">123 — Блокнот</str>
    <int name="type">1</int>
    <int name="cid">3</int>
    <long name="_version_">1634683078714589184</long></doc>
</result>
</response>

type
TSearchResStruct = record
    Name: string;
    Value: string;
  end;
  TResultData =  array of TSearchResStruct;
  TResultDataStruct = record
    Elem: TResultData;
  end;
  TSearchResultMass = array of TResultDataStruct;

function SearchStrRows(res: IXMLDomNode): TSearchResultMass;
var
  j, k: Integer;
  ResData, ChildNode, ValueNode : IXMLDomNode;
  XML: IXMLDOMNodeList;
begin  
      ResData := ^res;

      for j:= 0 to ResData.attributes.length - 1 do
        if ResData.attributes.item[j].nodeName = 'numFound' then
          CountRecord := ResData.attributes.item[j].nodeValue;

      XML := ResData.selectNodes('doc');
      for j := 0 to (XML.length) - 1 do
      begin
        setlength(Result, length(Result) + 1);
        ChildNode := XML.item[j].firstChild;

        while ChildNode <> NIL do
        begin

          for k := 0 to ChildNode.attributes.length - 1 do
          begin
            if ChildNode.attributes.item[0].nodeValue <> null then
            begin
              setlength(Result[high(Result)].Elem, length(Result[high(Result)].Elem) + 1);
              Result[high(Result)].Elem[high(Result[high(Result)].Elem)].Name := ChildNode.attributes.item[0].nodeValue;
            end;
          end;

          ValueNode := ChildNode.firstChild;

          while ValueNode <> NIL do
          begin
            if ValueNode.nodeValue <> null then
              Result[high(Result)].Elem[high(Result[high(Result)].Elem)].Value := ValueNode.nodeValue;

            ValueNode := ValueNode.nextSibling;
          end;

          ChildNode := ChildNode.nextSibling;
        end;
      end;
    end
    else
      setlength(Result, 0);
end;