Hola,
Es problable que pueda hacerse de una forma más elegante y/o mejor, pero, algo así funciona sin problemas:
Código Delphi
[-]
TIdAttachment.Create(mail.MessageParts, 'C:\adjunto1.txt');
TIdAttachment.Create(mail.MessageParts, 'C:\adjunto2.txt');
Dale un vistazo a la ayuda de Delphi y a estos
resultados de una búsqueda en los Foros para guiarte en el uso de las funciones "FindFirst", "FindNext", etc., de tal modo que obtengas los archivos que se encuentren en una determinada carpeta.
Podrías hacer un "bucle" por contador ("for") en el cual, una vez sepas qué archivos hay que adjuntar, podrías utilizar la instrucción de más arriba, esto es, quedaría algo así, más o menos:
Código Delphi
[-]
for i := 0 to ListaArchivos.Count-1 do
begin
TIdAttachment.Create(mail.MessageParts, ListaArchivos[i]);
end;
Donde "ListaArchivos" podría ser una variable de tipo "TStrings" en donde previamente hubieras añadido las rutas de los archivos correspondientes.