Insertar Registro Especifico de una Tabla a otra

[feliz-58]

Saludos,

Tengo dos tablas que son el resultado (entradas) (Cuentas);

Uso el Siguiente Codig SQL para copiar los Registros:

Código SQL [-]
begin
with DM.AQCopy do
begin
SQL.Clear;
SQL.Add('Insert Into Cuentas (Codigo, Nombre, Contacto, Fecha, Monto) select Codigo, Suplidor_Nombre, Suplidor_Contacto, Fecha, Monto_Pagar from Entradademercancia');
ExecSQL;
end;
end;

Pero esto me Copia La tabla completa, como Copio solamente un registro en espesifico, por ejemplo el que estoy trabajando en ese momento en el modo de ejecucion de delphi.

-Access.
-ADoQuery.

Saludos!