Poner atributos a los archivos con Delphi

Saludos experto, quería saber si hay alguna forma de poner atributos a los archivos y carpetas pero con funciones de delphi, e probado haciendo esto:
winexec('attrib +s c:\algo.txt',0)
La verdad funciona pero no me convence ademas que no funciona cuando el archivo o carpeta tienen espacios en blanco, te agradecería una ayuda con esto.