Slette bestemte mapper og filer i en mappe

jeg vil prøve at lave et program som hurtigt kan slette de mapper, FrontPage laver til ens web-sites. de hedder alle sammen _vti_cnf, så jeg vil gerne lave programmet, så det løber mit web-steds-mappe igennem, og sletter alle de mapper der hedder _vti_cnf
Jeg har prøvet at ændre denne kode, som ellers sletter ALLE filer og mapper, men jeg kan ikke få det til at virke:
rocedure TForm1.DeleteFiles (const Path, Mask : string; recursive : boolean);
var
Result    : integer;
SearchRec : TSearchRec;
begin
Result := FindFirst(Path + Mask, faAnyFile - faDirectory, SearchRec);
while Result = 0 do
begin
  if not DeleteFile (Path + SearchRec.name) then
  begin
      FileSetAttr (Path + SearchRec.name, 0); { reset all flags }
      DeleteFile (Path + SearchRec.name);
  end;
  Result := FindNext(SearchRec);
end;
FindClose(SearchRec);

if not recursive then
  exit;

Result := FindFirst(Path + '*.*', faDirectory, SearchRec);
while Result = 0 do
begin
  if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
  begin
      FileSetAttr (Path + SearchRec.name, faDirectory);
      DeleteFiles (Path + SearchRec.name + '\', Mask, TRUE);
      RmDir (Path + SearchRec.name);
  end;
  Result := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;