WriteXMLFile

procedure WriteXMLFile(

  doc: TXMLDocument;

  const AFileName: string

); overload;

procedure WriteXMLFile(

  doc: TXMLDocument;

  var AFile: Text

); overload;

procedure WriteXMLFile(

  doc: TXMLDocument;

  AStream: TStream

); overload;