if checklistbox1.checked[i] then
          bk:=bk+','+checklistbox1.Items.Strings[i];