[Camilo]

Empezado por jhonny

Escribiré una posible solución, asumiendo que dicha tabla sea de tipo TTable, pues no especificaste el tipo de tabla que usas:

Código Delphi [-]
 
var
  i :Integer;
begin
  for i := 0 to CheckListBox1.items.Count -1 do
  begin
    if not CheckListBox1.Checked[i] then
      ListBox1.Items.Add(CheckListBox1.Items[i])
    else
    begin
      Tabla1.Append;
      Tabla1.FieldByName('NombreDelCampo').AsString := CheckListBox1.Items[i];
      Tabla1.Post;
    end;
  end;
end;

Jhony estoy muy apenado contigo por que me toco ausentarme un par de horas del compu.; mientras tu gentileza se manifestaba en la solucion de mi duda.
te cuento que hice el procedimiento y salvo introducir "items" en la parte de
for i := 0 to CheckListBox1.items.Count -1 do
y quitar el ";" anterior al else, todo bien.

Te agradezco nuevamente y disculpa la tardanza en la confirmacion.