[Belen12]

Hola buenas noches tengo un formulario de alta de empleados pueden tener 1 o varios puestos de trabajo para ello los cargo utilizando un CheckListBox. y dbedit para los demas datos como nombre, apellido,dni , para realizar consultas a la base uso componentes query de zeos la base de datos esta realizada en mysql-5 y la aplicacion en delphi 2010.
Bien mi problema esta que cuando realizo una modificacion de un empleado este que fue seleccionado de una grilla al abrir el formulario en forma de edit me trae todo los datos de ese empleado pero no me pone en true los puestos de trabajo del CheckListBox. Basicamente necesito que al hacer la modificacion me traiga marcado los puesto de trabajo del empleado seleccionado,alguien podria ayudarme con esto
dejo el codigo que manejo para el alta y la creacion del CheckListBox

en el evento create del formulario de alta escribo el siguiente codigo para cargar el CheckListBox

Código Delphi [-]
begin
 fModulo.qPuestos.Open;
 fModulo.qPuestos.DisableControls;
 fModulo.qPuestos.First;
 try
    while not fmodulo.qPuestos.Eof do
    begin
      CheckListBox1.Items.AddObject(
        fmodulo.qPuestos.FieldByName('nombrepuesto').AsString,
        TObject(fmodulo.qPuestos.FieldByName('idpuesto').AsInteger));
      fmodulo.qPuestos.Next;
    end;
    fmodulo.qPuestos.First;
  finally
    fmodulo.qPuestos.EnableControls;
  end;
end;

luego en el boton aceptar del formulario tengo el siguiente codigo

Código Delphi [-]
var
  i: Integer;
begin
 fModulo.tEmpleados['fechadenacimiento'] := dtFecha.Date;
 fmodulo.tEmpleados.Post;
for i := 0 to CheckListBox1.Items.Count -1 do
  begin
    if CheckListBox1.Checked[i] then
    begin
    fmodulo.tAsignados.Active:=True;
      fmodulo.tAsignados.Insert;

      fmodulo.tAsignados.FieldByName('idempleado').AsInteger :=
      fmodulo.tEmpleados.FieldByName('idempleado').AsInteger;

      fmodulo.tAsignados.FieldByName('idpuesto').AsInteger   :=
      Integer(CheckListBox1.Items.Objects[i]);
      fmodulo.tAsignados.Post;
    end;
  end;
 self.Close;
end;

aclaracion en la base de datos tengo las siguientes tablas Puestos de trabajo, asignados, empleados las cuales sus estructuras son la siguiente

Código SQL [-]
puestos
idpuesto
nombrepuesto

Código SQL [-]
empleado
idempleado
dni
nombre
apellido

Código SQL [-]
asignado
idasignado
idempleado
idpuesto

y el boton modificar que utilizo para abrir el formulario en forma de edit es el siguiente codigo

Código Delphi [-]
procedure TfListadoEmpleados.bModificarClick(Sender: TObject);
begin
fmodulo.tEmpleados.Active:=True;
if fModulo.tEmpleados.Locate('idempleado',fmodulo.qEmpleados['idempleado'],[]) then;        //localiza un registro
 begin
   fmodulo.tEmpleados.Edit;
   tfempleados.Create(self).ShowModal;
 end;
 fmodulo.tEmpleados.Active:=False;
 fmodulo.qEmpleados.Refresh;
end;

desde ya muchas gracias