简单问题！！！

Question

小弟的部分代码如下：
procedure Tfm_main.bsSkinSpeedButton4Click(Sender: TObject);
var
   i:integer;
   tel:string;
begin
if (not sending) and conected then
  begin
    tel:='';
    for i:=0 to bsskinchecklistbox1.Items.Count-1 do
    begin
      if bsskinchecklistbox1.Checked[i] then
      begin
        if (correct_tel(copy(bsskinchecklistbox1.Items.Strings[i],pos(':',bsskinchecklistbox1.Items.Strings[i])+1,11)))
           and (pos(copy(bsskinchecklistbox1.Items.Strings[i],pos(':',bsskinchecklistbox1.Items.Strings[i])+1,11),tel)<=0) then
        tel:=tel+copy(bsskinchecklistbox1.Items.Strings[i],pos(':',bsskinchecklistbox1.Items.Strings[i])+1,11)+')';
      end;
    end;
    if tel='' then
    begin
       showmessage('请选择发送对象！');
      exit
     end
..........
小弟的需求是把bsskinchecklistbox1中check值为true的手机号的r_rsp更新为这只是部分代码，但是老是在bsskinchecklistbox1中报错，希望老大给出答案啊，小弟刚刚入门又没有用过bsskinchecklistbox1

Answer 1

if bsskinchecklistbox1.Checked[i] then
改为
 if bsskinchecklistbox1.Checked then