Fórum Erro ao Enviar Anexo (Delphi 2010 + SMTP) #449797

procedure TF_Email.btnEnviarClick(Sender: TObject);
var i : integer;
begin
     btnEnviar.Enabled := false;
     Screen.Cursor := crHourGlass;


     //anexar arquivos
   if lbAnexos.Items.Count >0 then
     begin
       for I := 0 to lbAnexos.Items.Count -1 do
         TIdAttachmentFile.Create(Mesage.MessageParts, lbAnexos.Items[i]);

     end;
     //email do remetente
     Mesage.From.Name := dbRemetente.Text;

     //email do destinatário
     Mesage.Recipients.EMailAddresses := dbDestinatario.Text;

     //assunto
     Mesage.Subject := dbAssunto.Text;

     //conteúdo do email
     Mesage.Body.Text := memoMSG.Lines.Text;
     try
     SMTP.Authenticate;
     if not smtp.Connected then  SMTP.Connect() ;

     except
      showmessage('Nao Conectou');
     end;

   try
       SMTP.Send(mesage);
       showmessage('Mandou Mensagem');
       Screen.Cursor := crDefault;
     btnEnviar.Enabled := true;
     except
     SMTP.Disconnect;
     end;

end