[RESUELTO] Crear archivo XML con TXMLDocument

TXMLWriter = class (TObject)
  private
  	Doc: TXMLDocument;
  public
  	Constructor Create;overload;
    procedure Escribe_Canal(Localidad: Integer; idCanal: Integer;
    												nombreCanal: String; Tipo: String; Activo:Boolean);
    procedure Escribe_Pueblo(idLocalidad: Integer;Localidad: String;
												Estado:String);
    procedure Cierra();
  end;

constructor TXMLWriter.Create;
var
	Root: IXMLNode;
begin
  inherited;
  Doc := TXMLDocument.Create(nil);
	Doc.Active:=True;
  Doc.AddChild('config');
  Doc.DocumentElement.AddChild('hola');
  Doc.DocumentElement.AddChild('adios');
  Doc.Active:=False;
 
end;

procedure TXMLWriter.Escribe_Pueblo(idLocalidad: Integer;Localidad: String;
												Estado:String);
var
	Def, Propiedad, Pueblo: IXMLNode;
begin
	Pueblo := Doc.DocumentElement.AddChild('localidad');
  Pueblo.Attributes['id']:=IntToStr(idLocalidad);
  Propiedad := Pueblo.AddChild('nombre');
  Propiedad.Text := Localidad;
  Propiedad := Pueblo.AddChild('estado');
  Propiedad.Text := Estado;
end;