cargar ficheros de texto y mostrar el contenido

[Neftali [Germán.Estévez]]

Revisa la sección de trucos del ClubDelphi;
En concreto hay un par, para borrar todos los ficheros de un directorio (creo que son el 333 y el 310); Si revisas el código es exactamente igual al que necesitas tú, sólo que hay que cambiar la línea que borra el fichero (DeleteFile) por la de añadirlo a la lista (Lista.Add(...));
La estructura del algoritmo es la misma; Busca, lo único que cambia es la operación final (borrar o añadir).