Ich habe es jetzt mit einer eigenen Funktion gelöst, die mir auch alles geben sollte, was ich suche. Ich hoffe, dass es nicht allzu falsch ist. Funktionieren tuts jedenfalls.
Delphi-Quellcode:
function GetAttributeValue(XMLContent,Attribute:String):String;
begin
if pos(Attribute,XMLContent)<>0 then
begin
Delete(XMLContent,1,pos(Attribute,XMLContent)+length(Attribute)+1);
if pos('"',XMLContent)<>0 then
Delete(XMLContent,pos('"',XMLContent),length(XMLContent));
Result:=XMLContent;
end;
end;