Leer todos los ficheros de una carpeta

[[Bicho]]

Hombre últimamente Caral piensa mucho en mí Voy a empezar a cobrarte por las ayudas eh?

De todas maneras el código que ha puesto Caral no está mal (claro si se lo dí yo no va a estar mal no?) Pero creo que para el caso que pide VRO no sirve. Por el simple hecho de esto:

Empezado por VRO

La carpeta puede estar grabada en el ordenador ó en cualquier otro soporte (disquete, CD-ROM, Pen-Drive ...).

Y es que si la carpeta está un CD-ROM no podremos escribir esa marca en los ficheros y en un Pen-drive y/o disquete si están protegidos tampoco podremos.

Yo propongo otra alternativa:
Recorrer el directorio y guardar los ficheros en un memo o un listbox (lo que tu veas más sencillo de manejar: con un listbox el usuario podría escoger el fichero que quiere procesar, pero si el proceso es automático tanto te da). Eso lo puedes hacer con el truco que te ha brindado Spynosa. Y una vez hecho esto recorres el memo o el listbox, fichero a fichero, procesas el fichero como sea y cuando hayas terminado con él, copias esa linea en un listbox o memo (en otro distinto).
Cada vez que vayas a procesar un fichero del primer memo, recorres el segundo en busca del mismo texto, si está allí significará que ya lo has procesado y te lo puedes saltar, en caso contrario lo procesas y copias esa linea en el segundo memo.

Como diria Seoane, un poco de código nunca viene mal: (el codigo está hecho todo de cabeza, no tengo Delphi instalado en éste equipo desde el que escribo, así que seguro que hay algun error)

Código Delphi [-]
type 
  Form1 : TForm;
     LbFicherosAProcesar : TListBox;
     LbFicherosProcesados : TListBox;
  private 
     procedure CargaFicherosEnLista;
     procedure RecorreListaAProcesar;
     function EsFicheroProcesado(pFichero : String) : Boolean;
  end;

implementation

procedure Form1.CargaFicherosEnLista;
begin
  //Aquí iria la funcion del truco de Spynosa
end;

procedure TForm1.RecorreListaAProcesar;
var x : Integer;
begin
   for x := 0 to LbFicherosAProcesar.Items.Count - 1 do begin
      if not EsFicheroProcesado(LbFicherosAProcesar.Items.Strings[x]) then begin
        //aqui haces lo que quieras con el fichero
        LbFicherosProcesados.Items.Add(LbFicherosAProcesar.Items.Strings[x]); 
//guardamos el nombre del fichero ya procesado en la lista para no procesar más
      end;
   end;
end;

procedure Tform1.EsFicheroProcesado(pFichero : String) : Boolean;
var i : Integer;
begin
  Result := False;
  for i := 0 to LbFicherosProcesados.Items.Count - 1 do begin
     if LbFicherosProcesados.Items.Strings[i] = pFichero then begin
        Result := True; //fichero encontrado, devolvemos true para que no se procese
        Break;
     end;
  end; 
end;

Bueno solo pedir disculpas por el rollo escrito, pero espero sirva de ayuda a alguien

Saludos