Veja como é simples obter os atributos de um arquivo:

• Insira na seção uses: Windows, Dialogs
• Coloque um botão no formulário.
• Programe o evento OnClick deste botão como abaixo.

procedure TForm1.Button1Click(Sender: TObject);
var
  Arquivo, Mensagem: string;
  Atributos: DWORD;
begin
  Arquivo := 'C:\Tecnobyte\SAC_Free\SAC.exe';
  Atributos := GetFileAttributes(PAnsiChar(Arquivo));
  Mensagem := 'Arquivo:'#13#9 + Arquivo + #13'Atributos:';
  if (Atributos and FILE_ATTRIBUTE_ARCHIVE) > 0 then
    Mensagem := Mensagem + #13#9'Archive';
  if (Atributos and FILE_ATTRIBUTE_COMPRESSED) > 0 then
    Mensagem := Mensagem + #13#9'Compressed';
  if (Atributos and FILE_ATTRIBUTE_DIRECTORY) > 0 then
    Mensagem := Mensagem + #13#9'Directory';
  if (Atributos and FILE_ATTRIBUTE_HIDDEN) > 0 then
    Mensagem := Mensagem + #13#9'Hidden';
  if (Atributos and FILE_ATTRIBUTE_NORMAL) > 0 then
    Mensagem := Mensagem + #13#9'Normal';
  if (Atributos and FILE_ATTRIBUTE_OFFLINE) > 0 then
    Mensagem := Mensagem + #13#9'OffLine';
  if (Atributos and FILE_ATTRIBUTE_READONLY) > 0 then
    Mensagem := Mensagem + #13#9'ReadOnly';
  if (Atributos and FILE_ATTRIBUTE_SYSTEM) > 0 then
    Mensagem := Mensagem + #13#9'System';
  if (Atributos and FILE_ATTRIBUTE_TEMPORARY) > 0 then
    Mensagem := Mensagem + #13#9'Temporary';
  ShowMessage(Mensagem);
end;