fdword :DWORD;procedure TForm10.btn1Click(Sender: TObject); var  temp:DWORD;begin  fdword :=786627;    //786627  11000000000011000011  temp := fdword shr (1*8);    //  ShowMessage(IntToStr(temp)); //3072   110000000000  temp := fdword shr (2*8);  ShowMessage(IntToStr(temp));  //12  1100  temp := fdword shr (3*8);  ShowMessage(IntToStr(temp));  //0   0  temp := fdword shr (4*8);  ShowMessage(IntToStr(temp));//786627    11000000000011000011  temp := fdword shr (5*8);  //右移 5个字节  提示错误  //[DCC Error] Unit10.pas(41): E1012 Constant expression violates subrange bounds  //(DCC错误)Unit10.pas(41):E1012常数表达式违反了附属的区域范围end;