procedure SetBit(X: DWORD; I: Integer);
begin
  X:= X or (1 shl I);
end;
procedure ClrBit(X: DWORD; I: Integer);
begin
  X:= X and ((1 shl I) xor $FFFFFFFF);
end;
function BitTest(X: DWORD; I: Integer): Boolean;
begin
  Result:= (X and (1 shl I)) <> 0;
end;