Как выключить бит в числе?

Delphi FAQ >> Алгоритмы

procedure BitOff(var N: Longint; nBit: Byte);
begin
  N := N and ((1 shl nBit) xor $FFFFFFFF);
end;

---

Подарите своему ребенку конструктор лего