y si cambias la forma de agregar los registros?
Código Delphi
[-]begin
query1.SQL.Clear; query1.SQL.Add(Edit1.text); query1.Active:=True; query2.DatabaseName:='c:\'; while not query1.eof do begin
tblaAgregar.Append;
tblaAgregarnNumpre.value := query1nNumpre.value
tblaAgregarnTotal.value := query1Total.value
tblaAgregar.post
query1.Next; end;