фильтрация по части слова

[kate158]

procedure TForm1.edFilterNameChange(Sender: TObject);
begin
  if cbNameLikeFilterOn.Checked and (Trim(edFilterName.Text)<>'')  then begin
   dm.people.Filtered := false;
   dm.people.Filter :=' name Like '+ QuotedStr('*'+Trim(edFilterName.Text)+'*')
 +'or SECOND_name Like '+ QuotedStr('*'+Trim(edFilterName.Text)+'*');
   dm.people.Filtered := true;
  end
  else begin
    dm.people.Filtered := false;
  end;
end;

т.е. у одного есть имя александр петров, а у другого вася александров.
юзер в эдит поле вводит:александр
вывод - оба поля: и александр петров, и вася александров.


блин, а все работает =)
Спасибо!