Copiar registro de una Tabla a otra Tabla, sin repetirse

[Vales08]

Buenas tardes, me meto en este hilo porque tengo la misma consulta...
Pasar registros de una tabla a otra, pero sin que se repitan. yo lo hago mediante dos dbgrid y en un boton puse el codigo que paso seara2005, lo modifiqué segun mi programa, pero el problema esta en que me carga el registro tantas veces como registros hay cargado en la tabla.. (ejemplo: si tengo 3 registros en total cargado en la tabla principal, me carga el registro 3 veces en la otra tabla).

Como puedo solucionar eso? o que estoy haciendo mal.. Les paso mi codigo para que me puedan ayudar..

Código Delphi [-]
DM.Q_alim.First;
  While Not(DM.Q_alim.Eof) do
    Begin
       If Not(DM.Q_plan_y_alim.Locate('ID_ALIM',DM.Q_alimID_ALIM.Value,[loCaseInsensitive])) then
         Begin
            DM.DSET_plan_y_alim.Insert;
            try
              DM.DSET_plan_y_alimESTADO.Value:=0;
              DM.DSET_plan_y_alim.FieldByName('ID_ALIM').AsInteger:=DM.DSET_alim.FieldByName('ID_ALIM').AsInteger;
              DM.DSET_plan_y_alim.FieldByName('ID_PLAN').AsInteger:=DM.DSET_plan_alim.FieldByName('ID_PLAN_A').AsI  nteger;
              DM.DSET_plan_y_alim.Post;
            except
              DM.DSET_plan_y_alim.Cancel;
            end;
         End;
      DM.Q_alim.Next;
    End;

Aclaro: a la hora de la inserción uso el DataSet porque el Query no me permite el ingreso de registros ya que es de solo lectura.

Muchas gracias