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;