Estou testando uma aplicação em delphi 7 na qual envia e-mail com anexo. Porém o anexo vai multiplicando a medida que envio os email´s. Ex. Envio o 1º email com um arquivo anexo - vai normal. Quando envio o segundo email, com outro arquivo anexo ele anexa tb o 1º arquivo anexo. {Como estou selecionando o arquivo} if OpenDialog_anexo.Execute then ListBox_anexos.Items.Add(OpenDialog_anexo.FileName); {Como estou anexando} for Anexo := 0 to ListBox_anexos.Items.Count-1 do TIdAttachment.Create(IdMessage1.MessageParts, TFileName(ListBox_anexos.Items.Strings[Anexo])); Alguém pode me esclarecer / ajudar?
