case语句写法,异常信息为 Constant expression expected,要怎么修改

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;