[rafaelon]

Hola, buen día , tengo un problemita necesito que los elementos seleccionados en un se pasen a un edit seprados por comas en otro form

var
  i  : Integer;
begin
  if Check( CheckListBox1 ) then
  begin
    DM.tbltrabajosr.Insert;
    for i := 0 to CheckListBox1.Items.Count-1 do
    if CheckListBox1.Checked[i] then
    frm_principal.Edit9.:= (CheckListBox1.Items.Strings[(i)]);
    FrmTrabajos.close;

     DM.tbltrabajosr.FieldByName('Ids_trabajos').AsString :=
     CheckListBox1.Items[i];
     DM.tbltrabajosr.FieldByName('Id_orden').AsString :=frm_principal.Label44.Caption;
     DM.tbltrabajosr.Post; 

  end
end;

con este el código solo me muestra el ultimo seleccionado en el edit y no todos , y la otra parte del codigo que tambien tengo problemas quisiera guardar el codigo de los trabajos que se realizaran el campo "ids_trabajos" pero solo he podido guardar el nombre del ultimo seleccionado , entonces como podria guardar los codigos en vez del nombre que es lo que tengo en el checkboxlist , gracias de ante mano