Fórum idSMT com Work e WorkBegin em tempo de execução #457921

Olá pessoal

Tenho uma Função que envia Email e nesta função eu crio em tempo de execução o IdSMTP no entanto, gostaria de conseguir criar também a função para funcionar a propriedade onWork, OnWorkBegin e OnWorkEnd a fim de medir o progresso do email quando estiver sendo enviado.
A questão é quando eu envio um email apenas com texto ou com poucos arquivos anexos, não demora tanto, mas quando tenho que enviar vários arquivos anexo, o usuário acha que travou a aplicação pois não tem nenhum indicativo visual que esteja funcionando.

Será que alguem tem alguma dica ?

Obrigado