FastReport报表取值的问题，下面代码进入死锁！请问如何解决

[wulingyun1978]

j:=0;
i:=1;
while i<=Panel3.ControlCount do
begin
if Panel3.Controls[i] is TcxCheckBox then
if TcxCheckBox(Panel3.Controls[i]).Checked = True then
j:=j+1;
sm:='m'+trim(IntToStr(j));
TfrxMemoView(DM.frxReport1.FindObject(sm)).Text:=IntToStr(j)+'、'+tcxCheckBox(Panel3.Controls[i]).Caption;
end;

[OooOooOooOooO]

j:=0;
i:=1;
while i<=Panel3.ControlCount do
begin
if Panel3.Controls[i] is TcxCheckBox then
if TcxCheckBox(Panel3.Controls[i]).Checked = True then
j:=j+1;
sm:='m'+trim(IntToStr(j));
TfrxMemoView(DM.frxReport1.FindObject(sm)).Text:=IntToStr(j)+'、'+tcxCheckBox(Panel3.Controls[i]).Caption;
i:=i+1;
end;

[bdmh]

你的i一直等于1，必然退不出while