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

  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易做图).Text:=IntToStr(j)+'、'+tcxCheckBox(Panel3.Controls[i]).Caption;
  end; --------------------编程问答-------------------- 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易做图).Text:=IntToStr(j)+'、'+tcxCheckBox(Panel3.Controls[i]).Caption;
 i:=i+1;
  end; --------------------编程问答-------------------- 你的i一直等于1，必然退不出while

补充：.NET技术 ,  其他语言