Tratamento De Exceções

[RAFAELSOUTO]

Bom dia,

 

Estou tentando fazer um tratamento de exceção na hora que envia o email com a seguinte rotina

 

 try

          ACBrBoletoFCFortes1.NomeArquivo := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)+'EMAIL')+qryPesq.FieldByName('NOSSONUM').AsString+'_'+FormatDateTime('DDMMYYYYHHMMSS',Now)+'.PDF';{path onde vai salvar o pdf}

          ACBrBoleto1.GerarPDF;

          ACBrBoleto1.EnviarEmail(zSMTP,zPorta,zEmail,zSenha,zEmail,

          Titulo.Sacado.Email,'Boleto de Cobrança',zMsgEmail,False,True,nil,nil,False,True,frmPrincipal.xRazaoSoc,True);

 

        except

          On e: exception do

            begin

              MessageDlg('Erro ao enviar Email. Verifique!'+e.Message,mtWarning,[mbOK],0);

            end;

 

        end;

 

mas não entra no except ,o erro está em anexo!

 

Como faço o tratamento de exceção como o ACBR Boleto?