Для utf-8 легко:
Код:
myFile.CREATETEMPFILE;
myFile.CREATEOUTSTREAM(myOutStream);
XMLPORT.EXPORT(MyXMLPort,myOutStream);
myFile.CREATEINSTREAM(myInStream);
bigText.READ(MyInStream);
myFile.CLOSE;
bigtext.ADDTEXT('<?mytag?>',55);
IF EXISTS('C:\123.xml') THEN
ERASE('C:\123.xml');
myFile.CREATE('C:\123.xml');
myFile.CREATEOUTSTREAM(myOutStream);
bigText.WRITE(myOutStream);
myFile.CLOSE();
С utf-16 надо перекодировать строку, и начинать с 110.
Надо признать, что с наскоку перекодировка не далась.