Yo en Delphi (Delphi7+Indy10) hago directamente esto (sin el Add); A ver si te sirve:
Código Delphi
[-]
var
Mennsaje: TIdMessage;
...
begin
..
for i := 0 to (AListaAdjuntos.Count - 1) do begin
if FileExists(AListaAdjuntos[i]) then begin
TIdAttachmentFile.Create(Mensaje.MessageParts, AListaAdjuntos[i]);
end;
end;