Замена второго бита в числе

[SZR]

помогите написать прогу на Delphi. При вводе edit1 числа от 1000000 до 3000000
при нажатии кнопки число переводилось в двоичную систему, затем обнулялся второй байт этого числа. После чего число переводилось в десятиричную систему и отображалось в edit2. Можно с использованием ассемблера. Зарание спасибо

[rpy3uH]

т.е. надо так:
было 1110000111100011 -> получилось 1110000111100001

var
  x:integer;

begin
  ......
  x:=x and $FFFFFFFD;

всё, второй бит сборошен.

[SZR]

А если надо обнулить второй байт? тоесть было 101110001110000111100011 а стало 101110000000000011100011

[n@sok]

Значит надо так:

var
  x:integer;

begin
  ......
  x:=x and $FFFF00FF;

[SZR]

Спасибо всем большое Можно закрыть тему