CheckListBox1

{动态获取选项}
  for i:=0 to CheckListBox1.Count-1 do
  begin
    if CheckListBox1.State[i]=cbChecked then
      //do something;
  end;