Code:

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

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

begin

Result := val xor (1 shl TheeBit);

end;

Code:

procedure ToggleBit(SetWord, BitNum: Word);

begin

SetWord := SetWord xor BitNum; { Переключаем бит   }

end;