How to rename directories and files given a certain mask?(2)

Hi Folks,

This is what I have so far >

// TName's code

procedure DelChar(p,FName: String;c:Char);
var i,len: Integer;
NewName:String;
done:Boolean;
begin
  i:=1;
  NewName:='';
  len:=Length(FName);
  Done:=False;
  while i<Len+1 do  begin
    if (FName[i]<>c) or done then
       NewName:=NewName+FName[i]
    else
       if (FName[i]<>c) then
         Done:=True;
    inc(i);
  end;

  try
    RenameFile(p+FName, p+NewName);  //What should happen if ´the file NewName already exists?
  except
   ShowMessage('File'+ p+NewName + 'already exists!');
  end;
end;


  procedure ScanDirs(path: String;c:Char);
var sr: TSearchRec;
begin
  if path[Length(path)] <> '\' then
    path := path + '\';
  if FindFirst(path + '*.*', faAnyFile, sr) = 0 then
  begin
    repeat
       DelChar(path,sr.Name,c);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  if FindFirst(path + '*.*', faAnyFile, sr) = 0 then
  begin
    repeat
      if (sr.Name <> '.') and (sr.name <> '..') then
        if (sr.Attr = faDirectory) or (sr.Attr = faAnyFile) then
          ScanDirs(path + sr.Name + '\', c);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  ScanDirs('C:\Test','!');
end;

end.

//

This works like a charm and removes all ! chars from both dirs and files just like it should do. Although it should not occur normally, sometimes dupes enter the library. Dupes of name size and content. When this occurs, these files will not be touched obviously. All other files will however. I would like to have the above code modified to prevent myself from running into the problem of having only some files renamed. At all costs this should be prevented so a messagebox with several options should pop up which would provide options to tackle the problem or offer whatever actions which would help solving the problem. A dupe scan prior to the DirsCan prsenting a list with dupes and coarse of actions to have them renamed using another function or procedure?

Kind regards,

Dweep