function FileSetAttr2(const sPathFile: string; const iFileAttrib: integer; const nRepeat: integer = 5 ): integer; // 0 -> Ok, иначе код ошибки
      var nK: integer;
      begin
        nK := 0;
        result := -1;
        while (result<>0) and (nK<=nRepeat) do
        begin
          try
            result := FileSetAttr(sPathFile, iFileAttrib);
          except
            ProcessMessages2;
          end;
          nK := nK +1;
        end;
      end;


      function FileGetAttr2(const sPathFile: string; const nRepeat: integer = 5 ): integer;  // -1 -> Ошибка
      var nK: integer;
      begin
        nK := 0;
        result := -1;
        while (result<0) and (nK<=nRepeat) do
        begin
          try
            result := FileGetAttr(sPathFile);
          except
            result := -1;
            ProcessMessages2;
          end;
          nK := nK +1;
        end;
      end;