TQuery

[nenufer]

Buenos dias!!
Estoy utilizando un dblookupcombobox que me muestra todos los clientes que tengo. El loockupcombobox es un campo de una tabla que se relaciona con la de clientes y es una de las columna de un grid.
Tengo un Tquery y un Datasource.
Relaciono el datasource con el Tquery y el Tquery con el databasename.
Y rellena la propiedad Sql de forma dinamica.Quiero que me muestre todos los clientes que no esten dados de baja. Tengo un procedimiento :

Código Delphi [-]
procedure QueryClientes();
begin
 clear;
 Query.sql.add('select *');
 Query.sql.add('from clientes');
 query.sql.add('where Fecha_baja is null');
 query.execsql;
end;

Entonces lo siguiente que hago es relacionar el query con el campo looupup de la tabla. Pero me siguen saliendo todos. Al procedimiento lo llamo en el oncreate del formulario.

Me falta algo por hacer?. Si lo hago lo hago sin procedimiento,directamente en la propiedad sql. Si que me lo muestra como quiero pero no me refresca. Hago un query.refresh. Pero no hace nada, hay alguna otra forma de refrescar para que me funcione?

gracias.