var n: Integer; m: Integer; i: Integer; begin n:=46; m:=n; i:=0; while (n>0) and (i<32) do begin n:=n shr 1; Inc(i); end; n:=1 shl i; Edit1.Text:=IntToStr(n-m); end;