Filtrar 3 veces una grilla

[giulichajari]

Tengo un catalogo de productos que se muestra en forma de grilla obviamente, y deseo seleccionar en un DBLookupcombobox la categoria, entonces se filtra otro dblookupcombobox que es de subcategoria, y a la vez la grilla. Y al seleccionar una subcategoria se vuelve a filtrar la grilla, ademas tiene un edit para filtrar por nombre del producto los resgistros resultantes.

El caso es que tengo para la grilla un clientdataset con un datasetprovider y un query.
Y para cada combo un datasource con su table correspondiente.

El clientdataset tiene los campos idcategoria y idsubcategoria de tipo data

Código Delphi [-]
procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
DBLookupComboBox1.DropDown;
with ClientModule1.Tsubprod do
begin
   Filter:='idcategoria ='+IntToStr(DBLookupComboBox1.KeyValue);
   Filtered:=True;
end;
with ClientModule1.cdsprod do
begin

  Filter:='idcategoria ='+IntToStr(DBLookupComboBox1.KeyValue);
  Filtered:=True;
  DataSource.DataSet.Refresh;
end;

end;

procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
with ClientModule1.qproducto do
  begin
   Filter:='idsubcategoria = '+ IntToStr(DBLookupComboBox2.KeyValue);
   Filtered:=True;
  end;
end;

Pues el caso es que no funciona, no se que puede ser