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