[firebase-br] Envio de email com firebird e delphi demorado!

[ronaldo em grupolta.com.br]

Pessoal,
Bom dia,

    Estou com um problema aqui que é o seguinte:
    Temos uma tela em delphi7 que utiliza os componentes INDY(IdMessage e IdSMTP) para envio de email com informações extraídas do banco firebird, porém no momento de envio do email o mesmo demora muito.
    Alguém já se encontrou com este problema? É alguma configuração? Alguém pode ajudar?

    Abaixo a rotina utilizada:


 IdMessage.Recipients.EMailAddresses := edtPara.Text;
 IdMessage.CCList.EMailAddresses     := edtCC.Text;
 IdMessage.BccList.EMailAddresses    := edtCCO.Text;

    //Trata a Prioridade da mensagem
    case cbxPrioridade.ItemIndex of
     0 : IdMessage.Priority := mpHigh;
     1 : IdMessage.Priority := mpNormal;
     2 : IdMessage.Priority := mpLow;
    end;

 IdMessage.Subject := edtAssunto.Text;
 IdMessage.Body := mmMensagem.Lines;

 //Tratando os arquivos anexos
 for xAnexo := 0 to rzAnexos.Items.Count-1 do
 TIdAttachment.create(idmessage.MessageParts, TFileName(rzAnexos.Items.Strings[xAnexo]));

 IdSMTP.Connect;

  try
   IdSMTP.Send(IdMessage); -- NESTE MOMENTO DEMORA MUITO
  finally
   IdSMTP.Disconnect;
  end;

Obrigado,

Ronaldo