for i := CheckListBox1.Items.Count-1 downto 0 do  //从后面往前面删
   begin
   if CheckListBox1.Checked[i] then  // 是否选中
      begin
         CheckListBox1.Items.Delete(i);
      end;
   end;

获取选中的名称: clbCol.Items[clbCol.ItemIndex]