Косяк

[Sanctuar]

Вот код, чтобы узнать атрибуты файла
..................
var
attr: Integer;
s: string;
begin
attr := FileGetAttr('c:\Autoexec.bat');
if (attr and faHidden) <> 0 then s := 'Hidden';
if (attr and faReadOnly) <> 0 then s := s + 'Read-Only';
if (attr and faSysFile) <> 0 then s := s + 'System';
if (attr and faArchive) <> 0 then s := s + 'Archive';
Label1.Caption := s;
end;

Но почему-то эта строка if (attr and faReadOnly) <> 0 then s := s + 'Read-Only'; ошибочна!
Ошибка 311: Operator not applicable with this operand type

Все должно быть правильно, не врубаюсь, аж бесит, помогите!

[merax]

А и так все правильно, у меня работает. Проблему надо искать либо в функции либо в Windows.