Pasar un registro de una DBGird a otra sin que se repitan!!

[y_a_p]

Para no enredar mucho necesito pasar alimentos de una grilla a otra sin que se repitan y me pasa siempre el primero... Aqui está el código que yo tengo:

Código Delphi [-]
procedure TPlan_alimenticio.agregar_a_planClick(Sender: TObject);
var
alim:String;
begin
alim:=DM.DSET_alimNOM_ALIM.Value
if not(DM.Q_plan_y_alim.Locate('NOM_ALIMENTO', alim,[]))then
 begin
  DM.DSET_plan_y_alim.Append;
  DM.DSET_plan_y_alimID_ALIM.Value:=DM.DSET_alimID_ALIM.Value;
  DM.DSET_plan_y_alimID_PLAN.Value:=DM.DSET_plan_alimID_PLAN_A.Value;
  DM.DSET_plan_y_alimESTADO.Value:=0;
  DM.DSET_plan_alim.First;
  DM.DSET_plan_y_alim.Post;
  DM.Q_plan_y_alim.SQL.Clear;
  DM.Q_plan_y_alim.SQL.Add('select * from PLAN_Y_ALIM where ID_PLAN=:name and ESTADO=0');
  DM.Q_plan_y_alim.ParamByName('name').AsInteger:=DM.DSET_plan_y_alimID_PLAN.Value;
  DM.Q_plan_y_alim.Open;
 end;
end;