[[Lepe]]

Tendrás que añadirle la restricción al Maestro:

Código SQL [-]
.... where idcliente = 32

... se dice fácil, pero hace mucho más facil:

Código Delphi [-]
const sqlClientePresupuesto= ' select * from bla ... inner join bla  %s';
begin
if UnCliente then
query1.sql.text := format(sqlclientePresupuesto, ['where idcliente = 32'])
 // restringido a un solo cliente.
else
query1.sql.text := format(sqlclientePresupuesto, ['']);
 // para todos los clientes.

query1.Open ;

Saludos