OK I found this comment inside XMLWrite unit:
// Here we ignore doc.xmlEncoding and write a fixed utf-8 label,
// because it is the only output encoding currently supported.
WriteXMLDecl(TXMLDocument(node).XMLVersion, 'utf-8', (ord(TXMLDocument(node).XMLStandalone)-1) or 1);
perfect ....