Copiar registro de una Tabla a otra Tabla, sin repetirse

[seara2005]

Prueba algo así como esto

Código Delphi [-]
procedure TransferirDatos(Sender: TObject);
begin
   QAux.First;
  While Not(QAux.Eof) do
    Begin
       If Not(QEstadisticas.Locate('Valor',QAuxConceptoDebe.Value,[loCaseInsensitive])) then
         Begin
            QEstadisticas.Insert;
            try
              QEstadisticas.FieldByName('categoria').AsString:='Gastos Generales';
              QEstadisticas.FieldByName('valor').AsString:=QAux.FieldByName('conceptoDEBE').AsString;
              QEstadisticas.FieldByName('cantidad').AsInteger:=QAux.FieldByName('cantidad').AsInteger;
              QEstadisticas.FieldByName('subtotal').AsCurrency:=QAux.FieldByName('importe').AsCurrency;
              QEstadisticas.Post;
            except
              QEstadisticas.Cancel;
            end;
         End;
      QAux.Next;
    End;
end;