codice:
procedure TForm1.SpedisciClick(Sender: TObject);
begin
//setup SMTP
SMTP.Host := Server.Text;
SMTP.Port := 25;
SMTP.MailAgent := Agent.Text;
//setup mail message
  MailMessage.From.Address := Da.Text;
  MailMessage.From.Name := Nome.Text;
  if Lista.ItemIndex>-1 then
  MailMessage.Recipients.EMailAddresses :=
  A.Text + ' ' + Lista.Items[Lista.ItemIndex] else;
  MailMessage.CCList.EMailAddresses := CC.Text;
  MailMessage.BccList.EMailAddresses := Ccn.Text;
  MailMessage.Subject := Oggetto.Text;
  MailMessage.Body.Text := Messaggio.Text;
  if FileExists(Allegato.Text) then
  TIdAttachment.Create(MailMessage.MessageParts,
                         Allegato.Text);
//send mail
  try
  try
  SMTP.Connect(10000);
  SMTP.Send(MailMessage);
  except on E:Exception do
  Messaggio.Lines.Insert(0, 'ERROR: ' + E.Message);
  end;
  finally
  if SMTP.Connected then
     SMTP.Disconnect;
Status.Caption := ('Email Inviata');
end;
end;
per ogni volta che mando una email volevo un avviso di invio ci sono riuscito ma non mi ritorna allo stato iniziale mi rimane la voce 'Email Inviata' ho provato a usare lo sleep e anche il time ma l'unico risultato che ricevo è un rellettamento. mi dici cosa posso fare?