This is a known problem, where in certain circumstances, the compiler produces a sign extended negative result in a bitwise "AND" operation. The solution is to compare the result against zero, instead of comparing the result as being greater than zero. The following example demonstrates both the problem and the solution.

procedure TForm .Button Click(Sender: TObject);
var
  IntVal : Integer;
begin
  IntVal :=  28 +  ;
  if (IntVal and  28) > 0 then
    ShowMessage('This never executes!');
end;
procedure TForm .Button2Click(Sender: TObject);
var
  IntVal : Integer;
begin
  IntVal :=  28 +  ;
  if (IntVal and  28) <> 0 then
    ShowMessage('This is correct!');
end;