Как я могу установить атрибут сжатия файла в Delphi?

Как сжать файлы (установить атрибут 'c') из Delphi? Я говорю о функции «сжать содержимое для экономии места на диске», доступной в NTFS.

Кажется, что FileSetAttr не позволяет мне установить атрибут 'c' для файла.