Рекурсивное удаление всех файлов и папок с помощью Delphi

Я пытаюсь удалить папку и все ее подпапки -рекурсивно, но это вообще не работает, поэтому может кто-нибудь проверить код и сказать мне, что я здесь делаю неправильно?

Я запускаю этот код через D7 под Windows XP

if FindFirst (FolderPath + '\*', faAnyFile, f) = 0 then
      try             
         repeat

            if (f.Attr and faDirectory) <> 0 then
              begin
                    if (f.Name <> '.') and (f.Name <> '..') then
                      begin                            
                        RemoveDir(FolderPath +'\'+ f.Name);
                      end
                    else
                      begin
                        //Call function recursively...
                        ClearFolder(FolderPath +'\'+ f.Name, mask, recursive);
                      end;
              end;

         until (FindNext (f) <> 0);
      finally
        SysUtils.FindClose (f)
      end;
end;