BD2.Filter:='([Пол сотрудника]='+QuotedStr(Edit2.Text)+' and [Вид работы] LIKE '+QuotedStr(Edit3.Text+'%')+')'; BD2.Filtered:=true;