Revisa esto:
Código Delphi
[-]
SMTP.OnWorkBegin := IdSMTPWorkBegin;
SMTP.OnWork := IdSMTPWork;
SMTP.OnWorkEnd := IdSMTPWorkEnd;
PD: Yo también quiero dar las gracias a
dec, ya que con el post que cite antes he podido hacer para bajar un archivo con barra de progreso.