Código Delphi [-]CheckListBox1.Checked[CheckListBox1.ItemIndex]
CheckListBox1.Checked[CheckListBox1.ItemIndex]