query no recorre

[janoF]

El código esta hecho para que recorra el Query y grabar los datos en una tabla de paso
'TablarecepcionDiaria' el problema esta en que no deja de grabar solo un registro que es el
primero y no recorre el query1 y lo graba al infinito en la tabla de paso

Código Delphi [-]
 
procedure TRecepcion.Button1Click(Sender: TObject);
begin
 Query1.First ;
 While not Query1.Eof do 
 begin
   TablarecepcionDiaria.Insert;
   TablarecepcionDiaria.FieldbyName ('Rutvendedor').Asstring := query1.FieldbyName ('Rutvendedor').Asstring;
   TablarecepcionDiaria.FieldbyName ('Nombrevendedor').Asstring := query1.FieldbyName('NombreVendedor').Asstring;
   TablarecepcionDiaria.FieldByName ('RutAyudante').asstring := query1.FieldByName ('RutAyudante').asstring ;
   TablarecepcionDiaria.FieldByName ('NombreAyudante').asstring := query1.FieldByName ('NombreAyudante').asstring ;
   TablarecepcionDiaria.FieldByName ('fecha').asstring := query1.FieldByName ('fecha').asstring  ;
   TablarecepcionDiaria.FieldByName ('Codigo').asstring := query1.FieldByName ('Codigo').asstring  ;
   TablarecepcionDiaria.FieldByName ('Producto').asstring := query1.FieldByName ('Producto').asstring  ;
   TablarecepcionDiaria.FieldByName ('Despachos').asstring := query1.FieldByName ('Despachos').asstring  ;
   TablarecepcionDiaria.FieldByName ('Precio').asstring := query1.FieldByName ('Precio').asstring  ;
   TablarecepcionDiaria.FieldByName ('total').asstring := query1.FieldByName ('total').asstring  ;
   TablarecepcionDiaria.Post;
 query1.Next ;
 end;
end;

*****************************************************

*********el query1 le tengo este código para ordenar los datos
SELECT * FROM Visualizaventadiarias ORDER BY codigo ASC

*********y el boton para filtrar los datos asociado al query y al dbgrid

Código Delphi [-]
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * from Visualizaventadiarias');
Query1.Sql.Add('Where RutVendedor = ');
Query1.Sql.Add(QuotedStr(Edit1.Text));
Query1.Open;

gracias por el analisis

EDITE: Para colocar etiquetas Delphi.