Copiar registro de una Tabla a otra Tabla, sin repetirse

[Vales08]

Ahh claro..
Lo que sucede es que en la tabla PLAN_Y_ALIM solo tengo el ID_PLAN_Y_ALIM y luego las forenkey ID_ALIM (Pertenece a la tabla ALIMENTOS) y ID_PLAN (pertenece a la tabla PLANES_ALIM).
Entonces lo que yo necesito es que al seleccionar un registro de la tabla ALIMENTOS, ese registro se guarde en la tabla PLAN_Y_ALIM, donde se genera un ID_PLAN_Y ALIM y se le asigna el ID_ALIM seleccionado y el ID_PLAN de la tabla PLANES_ALIM (ese id sale de un alta que hago antes). No se si se entiende.
el codigo tendria que quedar asi entonces:

Código Delphi [-]
DM.Q_plan_y_alim.Active:=False;
with DM.Q_plan_y_alim.SQL do
  begin
    Clear;
    Add('INSERT INTO PLAN_Y_ALIM (ID_ALIM, ID_PLAN)');
    Add('SELECT ID_ALIM ');
    Add('FROM ALIMENTOS ');
    Add('WHERE NOT EXISTS (SELECT PLAN_Y_ALIM.ID_ALIM, PLAN_Y_ALIM.ID_PLAN ');
    Add('FROM PLAN_Y_ALIM ');
    Add('WHERE ALIMENTOS.ID_ALIM = PLAN_Y_ALIM.ID_ALIM');
    Add('AND PLANES_ALIM.ID_PLAN_A = PLAN_Y_ALIM.ID_PLAN)')
  end;
DM.Q_plan_y_alim.Active:=True;

Seria mas o menos asi??