#56 (Bug, 2015-06-09): fixes in HostFiles
https://redmine.blackboxframework.org/issues/56

Пункт: «Sharing error must be handled in Delete».

Вопрос: если мы при генерации временного имени в HostFiles.Delete продолжаем крутить шарманку при ошибке доступа sharingErr,
## Код:
```
s := f.state; num := WinApi.GetTickCount(); n := 200;
            REPEAT
               GetTempFileName(path, new, num); INC(num); DEC(n);
               IF WinApi.MoveFileW(fname, new) # 0 THEN res := ok
               ELSE res := WinApi.GetLastError()
               END
            UNTIL (res # fileExistsErr) & (res # alreadyExistsErr) & (res # 87)  >>>> & (res # sharingErr) <<<< OR (n = 0);
            IF res = ok THEN
               f.state := hidden; f.name := new$
            END
```
то почему эта же логика не распространяется и на остальные — accessDeniedErr и netAccessDeniedErr?
## Код:
```
PROCEDURE Error (n: INTEGER): INTEGER;
      VAR res: INTEGER;
   BEGIN
      IF n = ok THEN res := ok
      …
      ELSIF (n = sharingErr) OR (n = accessDeniedErr) OR (n = netAccessDeniedErr) THEN res := accessDenied
      …
   PROCEDURE CheckDelete (IN fname, path: FullName; ask: BOOLEAN; VAR res: INTEGER);
      VAR s: ARRAY 300 OF CHAR; t: ARRAY 16 OF CHAR;
   BEGIN
      REPEAT
         Delete(fname, path, res);
         IF (res = writeProtectedErr) OR (res = sharingErr) OR (res = accessDeniedErr)
            OR (res = netAccessDeniedErr)
         THEN
         …
```

А также на аналогичные циклы подбора временного имени в CreateFile и Directory.Rename?