使用case时出现的错误？ (50分)

各位大侠，小弟我遇到如下问题。望提点一二。谢谢！
procedure TFmUsrMan.RdGpChoiceClick(Sender: TObject);
var
index:Integer;
begin
index:=RdGpChoice.ItemIndex;
case index of
0:
EdUsrNo1.Visible:=true;
DBEdUsrNo.Visible:=false;//constant expression expected
。。。。。。。。。。。。。
----当我把
EdUsrNo1.Visible:=true;
DBEdUsrNo.Visible:=false;
这两句单独提出来的时候，系统又不会报错。
----当我把
EdUsrNo1.Visible:=true;
这句屏蔽掉后，系统也不会报错。这是为什么呢？
----与case对应的end，我已经写了

procedure TFmUsrMan.RdGpChoiceClick(Sender: TObject);
var
index:Integer;
begin
index:=RdGpChoice.ItemIndex;
case index of
0:
begin
EdUsrNo1.Visible:=true;
DBEdUsrNo.Visible:=false;//constant expression expected
end;
……………………
试试看！报错否？

多人接受答案了。