动态增加的CheckBox如何添名称?(急!在线等!50分!)

                            
我写了一段各序,如下:   
  For   i:=1   To   j-5   Do  
      Begin  
          s:='CheckBox'+IntToStr(i);  
          chkname[i]:=TCheckBox.Create(nil);  
          chkname[i].Parent:=Self;  
          chkname[i].Caption:=mc[i];  
          chkname[i].Checked:=False;  
          chkname[i].Height:=17;  
          chkname[i].Left:=left;  
          chkname[i].Name:=s;  
          chkname[i].Top:=top;  
          chkname[i].Visible:=True;  
          chkname[i].Width:=17;  
          If   Odd(i)  
          Then  
              left:=308  
          Else  
          Begin  
              top:=top+32;  
              left:=100;  
          End;  
          chkname[i].OnClick:=CheckBoxClick;  
      End;  
  其中mc是一个预先赋好值的字符串数组,程序运行后,CheckBox能够创建成功,但是没有名称,Caption属性没有起作用?请问各位老大:这是怎么回事,如何解决?

查看回复