Fórum Barra de Progresso para Envio de Email com Indy #188957

Primeiro vai ter q obter o tamanho do email em bytes, podendo usar SaveToStream ou SaveToFile no TIdMessage, obtendo o tamanho com a propriedade Size do MemoryStream, ou função, FileSize por exemplo, pra pegar de um arquivo físico caso prefira dar SaveToFile.

//antes de enviar o email
BarraProgresso.Max := TamanhoDoArquivo;

//E no evento Work do TIdSMTP pegar os bytes em andamento:

if BarraProgresso.Max > 0 then
BarraProgresso.Position := AWorkCount;