procedure ExtractAttributes(parent: IXMLNode; s: TStrings; const aName, aValue: string);
var
  sName: string;
  node: IXMLNode;
begin
  node := parent.ChildNodes.First;
  while Assigned(node) do
  begin
    sName := VarToStr(node.Attributes[aName]);
    if sName <> '' then
      s.Values[sName] := VarToStr(node.Attributes[aValue]);
    if node.HasChildNodes then
      ExtractAttributes(node, s, aName, aValue);
    node := node.NextSibling;
  end;
end;