procedure WriteVariant(RootNode: IXMLNode; Node: IXMLNode; const Name: InvString; V: Variant);

__fastcall WriteVariant(IXMLNode RootNode, IXMLNode Node, const InvString Name, Variant V);