IdSmtp

[genyus00]

TIdAttachment.Create(Mensaje.MessageParts,adjunto);

estoy intentando enviar un mail con archivos adjuntos utilizando DELPHI XE, y el compilador me dice que la linea anterior, tiene parametros demas... segun deberia ser..

TIdAttachment.Create(Mensaje.MessageParts);

la preguntas es.. entonces como asigno el/los archivo(s) adjunto(s)???

he utilizado de cuanto he visto en internet y nada.. lo ulitimo fue esto..

for i := 0 to lFicherosAdjuntos.Count-1 do
if FileExists(lFicherosAdjuntos.items[i]) then
with TIdAttachment.Create(idmessage.MessageParts) do
begin
idmessage.ContentType := 'text/pdf';
idmessage.ContentTransferEncoding:='base64';
idmessage.extraheaders.Add('Content-ID: <somelogo>');
end;

en el create.. no se me acepta colocar.

TIdAttachment.Create(idmessage.MessageParts,lFicherosAdjuntos.items[i])

por que me da el error de extra parametro, y si continuo la aplicacion asi como esta, me envia un error: