Onde esta meu erro?

[igmaster2000]

Boa tarde pessoa, estou tentando passar meu mdfe e esta dando erro, minha rotina esta assim...o teste esta funcionando mas o normal da erro..

   if normal.Checked then
      begin
      ACBrMDFe1.Manifestos.Clear;
     ACBrMDFe1.Manifestos.Items[0].GravarXML();
      ACBrMDFe1.Enviar(StrToInt(mdfe.Text));
      ACBrMDFe1.manifestos.Assinar;
      ACBrMDFe1.manifestos.Validar;
      ACBrMDFe1.Enviar(1,true);
      ACBrMDFe1.Manifestos.Clear;
      MemoResp.Lines.Text := UTF8Encode(ACBrMDFe1.WebServices.Retorno.RetWS);
      LoadXML(MemoResp, WBResposta);
      ACBrMDFe1.manifestos.Clear;
      end
   if teste.Checked then
      begin
      ACBrMDFe1.Manifestos.Clear;
     ACBrMDFe1.Manifestos.Items[0].GravarXML();
      MemoResp.Lines.Text   := UTF8Encode(ACBrMDFe1.WebServices.Retorno.RetWS);
      LoadXML(MemoResp, WBResposta);
      ACBrMDFeDAMDFeRL1.MostrarPreview := true;
      ACBrMDFe1.Manifestos.Imprimir;
      end;

segue arquivi gerado..

15180963831820000145580010000000011000000015-mdfe.xml

[Italo Giurizzato Junior]

Bom dia,

Não esta funcionando porque você fez uma lambança.

Vamos simplificar.

 if normal.Checked then
 begin
   ACBrMDFe1.Manifestos.Clear;
   (* chamar aqui a procedure que alimenta o componente com os dados do MDF-e *) 
   ACBrMDFe1.Enviar(StrToInt(mdfe.Text));
   MemoResp.Lines.Text := UTF8Encode(ACBrMDFe1.WebServices.Retorno.RetWS);
   LoadXML(MemoResp, WBResposta);
 end;