Problemas con 2 DBLookupComboBox y filtros

[ale]

Tengo un problemita, tengo dos DBLookupComboBox y necesito que uno de ellos me muestre resultados filtrados segun el criterios seleccionado en el primer combo, como lo hago?

[marcoszorrilla]

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
Table2.Filter:='Codcliente = '+QuotedStr(DbLookUpCombobox1.text);
Table2.Filtered:=True;
DblookUpCombobox2.Update;
DblookUpCombobox2.DropDown;
end;

Un Saludo.