Foros Club Delphi - ¿delphi xml como DeclareNamespace?

estoy con la generacion del xml
y no logro hacer el xml

Código:

<cfdi:Comprobante xsi:schemaLocation="http://www.sat.gob.mx/cfd/3 cfdv3.xsd" xmlns:cfdi="http://www.sat.gob.mx/cfd/3" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"

Código:

<Comprobante xsi:schemaLocation="http://www.sat.gob.mx/cfd/3 cfdv3.xsd" xmlns:cfdi="http://www.sat.gob.mx/cfd/3" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"

use el xml databinding para generar el archivo pas

para importar el cfdv3.xsd

usando eureka log y con delphi 2010 el error es

2.5 Type : EDOMParseError
2.6 Message : Referencia a un prefijo de espacio de nombres no declarado:_'cfdi'.
.
Line:_1
<?xml version="1.0" encoding="UTF-8" ?><.
2.7 ID : A382
2.8 Count : 1
2.9 Status : New
2.10 Note :

mi codigo fuente es

Código Delphi [-]
procedure TFUnitForm.Button5Click(Sender: TObject);
begin
 XMLDoc.XML.Text := ' < ?xml version="1.0" encoding="UTF-8" ?>< cfdi:Comprobante>< /cfdi:Comprobante> ';
   CFD := GetComprobante(XMLDoc);
   CFD.DeclareNamespace('cfdi','http://www.sat.gob.mx/cfd/3');
  with CFD do
    begin

    Version := Edit53.Text;  //version del documentoxml
    Folio := Edit56.Text;
    Fecha := Edit55.Text;
    Sello := Trim(Memo3.Text);
    Total := Edit57.Text;
    SubTotal := Edit58.Text;
    Moneda := Edit59.Text;
    Certificado := Trim(Memo4.Text);
    FormaDePago:= Edit60.Text ;

      with Emisor do
      begin
        Rfc := Edit1.Text;
        Nombre :=Edit2.Text;
          with DomicilioFiscal do
          begin
            pais := Edit3.Text;
            Calle := Edit4.Text;
            Estado := Edit5.Text;
            Colonia := Edit6.Text;
            Municipio := Edit7.Text;
            NoExterior := Edit8.Text;
            CodigoPostal := Edit9.Text;

          end;

           with ExpedidoEn do
           begin
             Pais:= Edit10.Text;
             Calle := Edit11.Text;
             Estado:= Edit12.Text;
             Colonia := Edit13.Text;
             NoExterior := Edit15.Text;
             CodigoPostal := Edit16.Text;

           end;

      end;

  end;


    XMLDoc.SaveToFile( 'cfdvv3.xml');
end;

el codigo para agregar namespace lo encontre aqui
http://www.validacfd.com/phpbb3/viewtopic.php?f=9&t=172