Ich hätte NewProduktion gleich als IXMLDOMElement deklariert, dann musst du dir nicht erst das passende Interface besorgen:
Delphi-Quellcode:
with NewProduktion as IXMLDOMElement do
setAttribute('Code1', exparr[4]);
Man kann natürlich auch mit IXMLNode arbeiten, aber dann wird der Ausdruck etwas länger ...
Nur der Vollständigkeit halber:
NewProduktion.attributes.setNamedItem(xmlDoc.createAttribute('Code1')).text := exparr[4];