SetFileAttributes bzw. FileSetAttr setzen Attribute nicht r.

[Die Muhkuh]

Hi,

so setze ich Datei-Attribute:

Delphi-Quellcode:

Attrib := faAnyFile;
      if cbProtectedFile.Checked then
        Attrib := Attrib + faReadOnly
      else
        Attrib := Attrib - faReadOnly;

      if cbArchiv.Checked then
        Attrib := Attrib + faArchive
      else
        Attrib := Attrib - faArchive;

      if cbHiddenFile.Checked then
        Attrib := Attrib + faHidden
      else
        Attrib := Attrib - faHidden;

      if cbSystemFile.Checked then
        Attrib := Attrib + faSysFile
      else
        Attrib := Attrib - faSysFile;

      FileSetAttr(FDoc.FFilename, Attrib);

Wenn ich Z.B. nur auf "cbProtectedFile" klicke so das es "checked" ist, und diese Procedure ausführe werden zwar Datei-Attribute gesetzt, aber die Falschen. Woran kann das liegen?