1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure FindInDir( aDir: String; PreName: String; SavedPaths: TStrings );
var SR: TSearchRec;
begin
aDir := IncludeTrailingPathDelimiter( aDir );
if length(PreName)>0 then
  PreName := IncludeTrailingPathDelimiter( PreName );
if FindFirst( aDir + '*.*', faAnyFile, SR ) = 0 then
  try
    repeat
      if (SR.Attr and faDirectory) = faDirectory then
        begin
        if (SR.Name <> '.') and (SR.Name <> '..') then
          begin
          FindInDir( aDir + SR.Name, PreName + SR.Name, SavedPaths );         // Ordner
          end;
        end
        else // if (SR.Attr and faDirectory) <> faDirectory then
          begin
          SavedPaths.Add( PreName + SR.Name );  //Datei
          end;
      until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;
end;					

1:

FindInDir( PfadName, Pfadname, DieStringList );					

1:

FindInDir( PfadName, '', DieStringList );					

1:
2:

For C:=0 to dieStringlist.count-1 do
  ArbeiteMitPfad( Pfadname + DieStringList[C] );					

1:
2:
3:
4:
5:
6:
7:
8:

uses
  IOUtils;

var
  CurrentFile: string;
begin
  for CurrentFile in TDirectory.GetFiles(TargetPath, '*.*', TSearchOption.soAllDirectories) do
    ArbeiteMitPfad(CurrentFile);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

var WritePos, C: Int64;
FS: TFileStream;
aByte: Byte;
begin
WritePos := 0;
//Filestream erstellen +ggf. initialisieren
try
For C:=1 to FS.Size do
  begin
  FS.Read( aByte, 1 ); //einlesen
  if (aByte <> 1) then //wenn es kein Leerzeichen ist
   begin
   FS.Seek( WritePos, soFromBeginning ); //gehe auf schreibposition
   FS.WriteBuffer( aByte, 1 ); //überschreibe das Byte (das "nicht Leerzeichen")
   inc( WritePos );  //erhöhe schreibposition
   FS.Seek( C, soFromBeginning );  //gehe zurück zur leseposition
   end;
  end;
//nächste Zeile, Korrektur dank jaenicke ;) 
 FS.Size := WritePos; // Datei wird so groß, wie viele Bytes geschrieben wurden
 finally
 FS.Free;
 end;  
end;