Nel mio programma di posta elettronica qundo invio un messaggio ad un contatto, sembre che lo memorizzi in memoria, perchè quando cambio con un nuovo indirizzo lui continua ad inviare msg sempre al primo indirizzo che avevo digitalizzato. ecco il codice.
codice:
procedure TForm1.SpedisciClick(Sender: TObject);
begin
//setup SMTP
SMTP.Host := Server.Text;
SMTP.Port := 25;
//Camuffare il programma
SMTP.MailAgent := Agent.Text;
//setup mail message
  MailMessage.From.Address := Da.Text;
  MailMessage.From.Name := Nome.Text;
  MailMessage.Recipients.EMailAddresses := A.Text;
  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;
come faccio ad azzerarlo?