query no recorre

[jhonny]

Esto si me parece muy extraño, ¿Seguro que en la tabla Visualizaventadiarias no están esos datos repetidamente?, quizá te parece que no esta recorriéndose el DataSet, debido a que te muestra un registro diferente pero repetido de dicha consulta, se me viene de pronto a la cabeza que hagas la prueba cambiando el segundo botón por:

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

Para ver que sucede.

Otra cosa, BIENVENIDO¡¡¡ al club, pero por favor utiliza las etiquetas delphi, para que tu codigo se vea mejor y se entienda mas facilmente.