Problema al pasar Query a DBF

[[oscarac]]

y si cambias la forma de agregar los registros?

Código Delphi [-]
begin
query1.SQL.Clear; // Limpiamos el Query Principal
query1.SQL.Add(Edit1.text); // El contenido de Edit1.Text es el que pone arriba (EL SQL)
query1.Active:=True; // Activamos la tabla
query2.DatabaseName:='c:\'; // Configuramos query para introducir datos
while not query1.eof do  //mientras no acabe el query principal
begin
tblaAgregar.Append;
tblaAgregarnNumpre.value := query1nNumpre.value
tblaAgregarnTotal.value := query1Total.value
tblaAgregar.post
query1.Next;   // Pasamos al siguiente regristro
end;