var
xmlDoc: XmlDocument;
XmlNodeList: XmlNodeList;
XmlNode: XmlNode;
xmlAttribute: XmlAttribute;
xmlAttributes: XmlAttributeCollection;
UUID: Text[50];
FileFilterTxt: Label 'XML Files(*.xml)|*.xml|All Files(*.*)|*.*', Locked = true;
FileInStream: InStream;
begin
UploadIntoStream(FileFilterTxt, FileInStream);
XmlDocument.ReadFrom(FileInStream, XmlDoc);
XmlDoc.SelectNodes('//cfdi:Complemento/tfd:TimbreFiscalDigital', xmlnodelist);
if xmlnodelist.Count <> 0 then begin
xmlnodelist.Get(0, XmlNode);
xmlAttributes := XmlNode.AsXmlElement().Attributes(); //HERE
foreach xmlAttribute in xmlAttributes do
IF xmlAttribute.Name = 'UUID' then
UUID := COPYSTR(xmlAttribute.Value, 1, 50);
end;