Dateiname: Ersetzen/Löschen von Teilstrings

[Delphi_gn7]

Ich habe (hoffe ich) alle Änderungen eingebracht, aber es tut sich noch immer nichts:

Delphi-Quellcode:

program FileRenamer;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure RenameFiles (var datei: string; Ren, RenIn: string);
Var
  FindRec: tSearchRec;
  DateiName: string;
Begin
datei:=IncludeTrailingBackslash(datei);
 If FindFirst (datei + '*.*', faAnyFile, FindRec) <> 0
Then Repeat
     If (FindRec.Name <> '.') and (FindRec.Name <> '..')
     Then begin
          DateiName := FindRec.Name;
          if (pos(Ren,DateiName) > 0)
          Then begin
               DateiName := StringReplace(DateiName, Ren, RenIn, [rfReplaceAll]);
               RenameFile(datei + FindRec.Name, datei + DateiName); 
                 end;
            end;

        Until FindNext (FindRec) <> 0;
FindClose (FindRec);
end;  // Ende Prozedur

var
  dir, Ren, RenIn: string;

begin
  write('Ordner: ');
  readln(dir);
dir:=IncludeTrailingBackslash(dir);
dir:=ExtractFileName(dir);
  write('Umzubenennender Teilstring: ');
  readln(Ren);
  write('Zu ersetzen durch: ');
readln(RenIn);
RenameFiles (dir,Ren,RenIn);
end.

Mfgn7...