Boton Buscar

[Belen12]

Hola buenas tardes tengo un programa en el cual realizo un listado de clientes, los cuales se muestran en un dbgrid, y necesito realizar una busqueda de los mismos para lo cual utilizo un tedit y un boton(buscar) el codigo que utilice es el siguiente

Código Delphi [-]
if eClientes.Text ='' then
exit;
fmodulo.qClientes.ParamByName('dni').AsString := eClientes.Text+'%';
fmodulo.qClientes.Refresh;
self.FormActivate(sender);

el codigo me funciona bien a medida que voy escribiendo el dni de los mismo me muestra las coincidencias. El prolema es el siguiente que cuando borro el dni escrito del tedit, no se me refresca la lista de clientes solo queda con lo ultimo que busco.Alguien me podría ayudar con esta tema ?
muchas gracias desde ya