Progress Bar no Envio de Email

Como colocar um progress bar no encio de um email pelo delphi?

Usando o NMSMTP :o

Brigadu!