function BitOff(const val: longint; const TheBit: byte): LongInt;
{©Drkb v.3(2007): www.drkb.ru}
begin
 Result := val and ((1 shl TheBit) xor $FFFFFFFF);
end;

function BitOff(const val: longint; const TheBit: byte): LongInt;

{©Drkb v.3(2007): www.drkb.ru}

begin

 Result := val and not (1 shl TheBit);

end;

procedure ClearBit(SetWord, BitNum: Word);
begin
 SetWord := SetWord or BitNum; { Устанавливаем бит }
 SetWord := SetWord xor BitNum; { Переключаем бит }
end;