Código Delphi [-] ... for i := 0 to CheckListBox1.Items.Count - 1 do if CheckListBox1.Checked[i] then begin ...
... for i := 0 to CheckListBox1.Items.Count - 1 do if CheckListBox1.Checked[i] then begin ...
Código Delphi [-] ... if CheckListBox1.Checked[CheckListBox1.ItemIndex] then begin ...
... if CheckListBox1.Checked[CheckListBox1.ItemIndex] then begin ...