[oper]

Имеется код который открывает "Обзор папок" в котором указываешь папку и он всё в ней удаляет.
Но мне надо слегка переделать. Нужно при выборе диска, чтоб удалял определённую папку (скажем "123") и она скрыта. Эта папка может быть на любом диске.
Вот первоначальный код:

Код:

uses
   FileCtrl;
 procedure RemoveAll(path: string);
 var
   sr: TSearchRec;
 begin
   if FindFirst(path + '\*.*', faAnyFile, sr) = 0 then \\Поиск файлов в директории
   begin
     repeat
       if sr.Attr and faDirectory = 0 then \\атрибут вроде как :)
       begin
         DeleteFile(path + '\' + sr.name); \\удаляем
       end
       else
       begin
         if pos('.', sr.name) <= 0 then
           RemoveAll(path + '\' + sr.name); \\удаляем
       end;
     until
       FindNext(sr) <> 0; \\след. поиск
   end;
   FindClose(sr); \\очищаем TSearchRec
   RemoveDirectory(PChar(path)); \\удаляем директорию
 end;
procedure TForm1.Button1Click(Sender: TObject); 
var
   dir: string;
 begin
   if SelectDirectory('Удаление каталога', '', dir) \\Открывает "Обзор папок"
   then RemoveAll(dir);
 end;
end.

Пытался сам переделать, искал в нете много и долго ответы, но никак не выходит.
Код не мой, комменты к коду мои