Envio de email con ProgressBar

[MaMu]

Encontré esto en:
http://www.icodeteam.net/index2.php?...do_pdf=1&id=25

Message Sent notification



You will notice
that nothing happens after you’ve sent a message. It is possible to greatly
improve this by adding a progress bar that indicates that the message has been
sent. Use IdSMTP’s onwork, workbegin and onworkEnd event handlers, together
with the progressbar. When the work is finished you could bring up a dialog
saying “Message Sent” or something to that effect. This will assure the user

that something is happening.

El problema es que, haga lo que haga, siempre tira un Access violation.
Por ejemplo, haciendo un:

Código Delphi [-]
 
ProgressBar1.StepIt;

Ya me quedo sin ideas.

Saludos