Ja ich würde auch sagen, dass da noch ein not davor hin gehört. Also:
Delphi-Quellcode:
Procedure TXWriter.WriteBOM(AllowUTF8BOM: Boolean = False);
Begin
If (XMLEncodingData[_Encoding].BOM > '') and not (xoDontWriteBOM in _Options)
and ((_Encoding <> xeUTF8) or AllowUTF8BOM) Then Begin
Flush;
_Stream.WriteBuffer(XMLEncodingData[_Encoding].BOM[1],
Length(XMLEncodingData[_Encoding].BOM));
End;
End;