现在已经可以确定是代码中的 put_text(...) 函数引发的内存泄漏，
put_text 在代码中出现的次数就是内存泄漏发生的次数。

目前还在尝试解决中


XMLDOC->createNode(CComVariant(NODE_ELEMENT),CComBSTR(L"Rec"),NULL,&TempNode);
OneNode->appendChild(TempNode,&TwoNode);

XMLDOC->createElement(CComBSTR(L"RecordNo"),&pElement);
pElement->put_text(WideString(array[i].RecordNo));
pElement->setAttribute(L"sn", CComVariant(StringToOleStr((IntToStr(n++))))) ;
TwoNode->appendChild(pElement,&TempNode);

XMLDOC->createElement(CComBSTR(L"ListNo"),&pElement);
pElement->put_text(WideString(array[i].ListNo));
pElement->setAttribute(L"sn", CComVariant(StringToOleStr((IntToStr(n++))))) ;
TwoNode->appendChild(pElement,&TempNode);