Archivos adjuntos en mail

[Dado de baja]

No consigo que funcione de ninguna forma.

¿ Alguna idea ? está en Delphi 2007 No se que versión será de las Indy

Estoy por intentarlo en Delphi 7 a ver si funciona.

Voy a poner el trozo de código por si a caso:

 with idMessage do begin
    // Cuerpo del mensaje.
    Body.Clear;
    Body.Assign(texto.Lines);
    ContentType := 'text/html';
    // Cuenta Origen.
    From.Name:=config.enombre.Text;
    From.address := config.eusuario.Text;
    ReplyTo.EMailAddresses:=config.erespuesta.Text;
    // Asunto del email.
    Subject := edit1.Text;
    // Prioridad del mensaje, ALTA.
    Priority := TidMessagePriority(mpHighest);
    // Coloco el archivo adjunto el cual enviar.

    //TidAttachment.Create(idMensage.MessageParts,ARCHIVOADJUNTO);
    for I := 0 to adjunto.Items.Count - 1 do
      begin
         if Fileexists(adjunto.Items[i]) then
           tIdAttachment.Create(MessageParts, adjunto.items[i]);


      end;
    end;

Los Uses:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient,
  IdSMTPBase, IdSMTP,IdAttachment, Menus, ExtCtrls;

El IdAttachment lo agregue yo en los Uses, porque no estaba y no lo reconocia.