Опять фильтрация

[Corvus046]

Здравствуйте. Я около месяца назад спрашивал по поводу фильтрации через MonthCalendar, а теперь столкнулся с такой проблемой. Хочу добавить ещё фильтрацию к этой же таблице через эдиты, но выходит настройка только какого-то одного способа фильтрации (Либо эдиты, либо календарь). А как сделать, чтобы и то и то работало? Вот коды фильтраций:

procedure TZayavki.MonthCalendar1Click(Sender: TObject);
begin
ADOTable1.Filtered:=False;
ADOTable1.Filtered:=True;
end;

procedure TZayavki.ADOTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
Accept:=Int(DataSet.FieldByName('Data').AsDateTime)=MonthCalendar1.Date;
end;

procedure TZayavki.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 0 then
  begin
  ADOTable1.Filtered:=false;
  ADOTable1.Filter:='Lastname' + ' LIKE ' + #39 + Edit1.Text + '%' + #39;
  ADOTable1.Filtered:=true;
  end
  else ADOTable1.Filtered:=false;
end;

[Corvus046]

И ещё хочу сделать фильтр по докторам, но для этого хочу привязать фамилии врачей из БД с каким-то компонентом, типа ComboBox, чтобы из добавленных докторов можно было выбрать нужного и соответственно фильтровать записи, содержащие его фамилия. Может кто знает, через какой компонент это лучше осуществить и как организовать поиск.

[Аватар]

Если OnFilterRecord=nil и не пусто Filter - работает только Filter
Если OnFilterRecord<>nil и пусто Filter - работает только OnFilterRecord
Если OnFilterRecord<>nil и не пусто Filter - работает OnFilterRecord и Filter как AND

Если OnFilterRecord<>nil, то и другие условия можно в него засунуть, не используя Filter

[Corvus046]

Сообщение от Аватар

Если OnFilterRecord=nil и не пусто Filter - работает только Filter
Если OnFilterRecord<>nil и пусто Filter - работает только OnFilterRecord
Если OnFilterRecord<>nil и не пусто Filter - работает OnFilterRecord и Filter как AND

Если OnFilterRecord<>nil, то и другие условия можно в него засунуть, не используя Filter

А можете пожалуйста это описать кодом и в какой именно процедуре все это нужно описывать. А то я не очень хороший знаток в программировании и боюсь не разберусь что, куда и как описать