How can I set a file's compression attribute in Delphi?

How can I compact files (set the 'c' attribute) from Delphi? I am speaking about the "compress contents to save disk space" function available under NTFS.

It seems that FileSetAttr does not allow me to set the 'c' attribute for a file.