case语句写法,错误信息为 Constant expression expected,要如何修改

Delphi(Pascal) code

VarBagOffsetType1,BagOffsetType2:DWORD;Var  i,BagNum,BagBaseAddr:DWORD;  BagOffsetType1,BagOffsetType2:DWORD;  BagTempAddr,BagType:PDWORD;begin  try  asm    pushad    mov ecx,GameBase    mov ecx,[ecx]    mov ecx,[ecx+$1C]    mov ecx,[ecx+$20]    mov ecx,[ecx+$BC8]    mov edx,[ecx+$14]    mov BagNum,edx    mov ecx,[ecx+$10]    mov BagBaseAddr,ecx    popad  end;  self.Label29.Caption:=inttostr(BagNum);  for i:=1 to BagNum do    begin      BagTempAddr:=Pointer(BagBaseAddr);      BagBaseAddr:=BagBaseAddr+4;      if BagTempAddr^<>0 then        begin          BagType:=Pointer(BagTempAddr^+$4);          Case BagType^ of            8,9,23:              BagOffsetType1:=$4C;              BagOffsetType2:=$C;//显示错误 错误信息为 Constant expression expected            3,0:              BagOffsetType1:=$D4;              BagOffsetType2:=$C;//显示错误 错误信息为 Constant expression expected            29,17:              BagOffsetType1:=$A4;              BagOffsetType2:=$C;//显示错误 错误信息为 Constant expression expected            20,31,27,18,13:              BagOffsetType1:=$44;              BagOffsetType2:=$4;//显示错误 错误信息为 Constant expression expected            6:              BagOffsetType1:=$C4;              BagOffsetType2:=$C;//显示错误 错误信息为 Constant expression expected            26:              BagOffsetType1:=$98;              BagOffsetType2:=$4;//显示错误 错误信息为 Constant expression expected            11:              BagOffsetType1:=$44;              BagOffsetType2:=$8;//显示错误 错误信息为 Constant expression expected            2:              BagOffsetType1:=$C0;              BagOffsetType2:=$8;//显示错误 错误信息为 Constant expression expected            15:              BagOffsetType1:=$DC;              BagOffsetType2:=$C;//显示错误 错误信息为 Constant expression expected            else              BagOffsetType1:=$3C;              BagOffsetType2:=$C;//显示错误 错误信息为 Constant expression expected        end;    end;  except end;end;

常量多了~怎么办~这个要如何赋值呢?要如何处理

[解决办法]
解决了，少begin...end，还有啥问题
[解决办法]
我看的就少了begin end 果真如此