Delphi - Form

Nel mio programma di posta elettronica quando invio una email vorrei che aprisse la Form2 dove c'è una progressbar in movimento, adesso io nel mio codice ho fatto in questo modo:

begin
//Apri ProgressBar
with TForm2.Create(Self) do
try
  Show;
//Setup SMTP
     SMTP.Host := Server.Text;
.......
MessageBeep(20);
finally
free;
end;
end;
Il fatto è che il Form2 lo apre ma non si muove e scompare quando l'email è stata inviata, l'unica cosa buona.

Il programma per l'invio della posta mi sa che impegna troppe risorse visto che la progress bar non si muove, allora ho fatto in un altro modo ho creato una progress bar come programma separato, e lo faccio eseguire quando invio l'email in questo modo:

procedure TForm1.SpedisciClick(Sender: TObject);
begin
//Avvio Status
     WinExec('Status.exe', SW_SHOWNORMAL);