[dec]

Hola,

Así es posible:

Código Delphi [-]
 var
   i: integer;
 begin
   for i := 0 to CheckListBox1.Count -1 do
   begin
     if CheckListBox1.Checked[i] then
     begin
       // El elemento "i" está marcado:
       // Añádelo en donde sea menester
     end;
   end;
 end;