越界赋值

procedure TForm1.Button1Click(Sender: TObject);
var
  w: Word;
  r: Byte;
begin
  w := $1234;  //10进制 4660
  {$R+}    //如果添加越界检查，程序将提示错误，不能继续执行
  r := w;  //如果没有越界检查，r 将获取 w 的低 8 位 $34
  ShowMessage(IntToStr(r));  //52
end;