вот сделал
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='' then
form1.ADOQuery3.Filtered:=false
else
form1.ADOQuery3.Filtered:=true;
form1.ADOQuery3.Filter:=''+form1.ComboBox1.Text+'>='''+Edit1.Text+'''';
end;
только есть небольшая проблема, при выборе не числового поля фильтр не работает..