Erro Ao Ler Retorno

[Flávio Machado]

dar esse erro aqui:  First chance exception at $7708C41F. Exception class Exception with message

'Arquivo não encontrado

 

 

 

 

meu cédigo para ler o re torno

 

procedure TfrmBoleto.SpeedButton4Click(Sender: TObject);

var I : Integer;

begin

     if OpenDialog1.Execute then

     begin

  ACBrBoleto1.NomeArqRetorno := OpenDialog1.FileName;

  ACBrBoleto1.LerRetorno;

  for i := 0 to  ACBrBoleto1.ListadeBoletos.Count-1 do

    begin

      if ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido > 0 then

        begin

          IBPescador.Insert;

         IBPescador.FieldByName('NOSSO_NUMERO').AsString      := ACBrBoleto1.ListadeBoletos.Objects.NossoNumero;

         IBPescador.FieldByName('DATA_VENC').AsDateTime := ACBrBoleto1.ListadeBoletos.Objects.Vencimento;

         IBPescador.FieldByName('DATA_QUIT').AsDateTime      := ACBrBoleto1.ListadeBoletos.Objects.DataCredito;

         IBPescador.FieldByName('VALOR_CONTA').AsFloat    := ACBrBoleto1.ListadeBoletos.Objects.ValorDocumento;

         IBPescador.FieldByName('VALOR_QUITATO').AsFloat        := ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido;

         IBPescador.Post;

        end;

     end;

   end;

end;

 

[Juliomar Marchetti]

Flávio conforme você passou no outro post é novo então pedimos para que leia as regras do fórum 

veja que você postou a mesma coisa aqui

[Flávio Machado]

Juliomar pode trancar esse post fico com outro !!

 

 não sei como excluir :/