batch :IXMLNode;
AddNode(node1, 'регистрационныйНомерОрганизации',Pack_XML.RegNumOrg ,tempnode);

<регистрационныйНомерОрганизации xmlns="123-456-789012" /> 

<регистрационныйНомерОрганизации> 123 - 123 - 123123 </регистрационныйНомерОрганизации>

Procedure TCollectorXML.AddNode(Parent: IXMLNode; NodeName: string; NodeValue: variant; out Child: IXMLNode);
var Textnode :IXMLNode;
begin
  Child:=xmldoc.CreateNode(NodeName,ntelement);
  Parent.ChildNodes.Add(Child);
  Textnode:=xmldoc.CreateNode(NodeValue,ntText);
  Child.ChildNodes.Add(Textnode);
end;