Archivos adjuntos en mail

[Cecilio]

Hola a todos.

He creado un pequeño programa que envia e-mail. hasta el momento todo iba bien.

Se me ocurrió poder agregar aduntos que pongo en una ListBox, pero no va:

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

      end;

El problema es que me dice que hay demasiados parámetros en el create.
En uses he tenido que agregar a mano IdAttachment porque no me reconcia TidAttachment

Mensajes de error:
[DCC Error] MMail.pas(142): E2034 Too many actual parameters
y
[DCC Warning] MMail.pas(142): W1020 Constructing instance of 'TIdAttachment' containing abstract method 'TIdAttachment.OpenLoadStream'

El primero lo entiendo el segundo no. Puede que no esté bien declarado en Uses ? o ¿ hay que agregar algun componente más ?