Поиск по базе данных

procedure TForm1.Edit1Change(Sender: TObject);
begin
      if Edit1.Text = '' then
       Table1.Filtered:=false  // показывает вес список
       else
        begin
         Table1.FilterOptions:= [foCaseInsensitive];//Регистронезависимый
                                                    //номер столбца или по имени 
         Table1.Filter := Table1.Fields[1].FieldName + '='+ QuotedStr(Edit1.Text + '*'); 
         Table1.Filtered:=true;
        end;
 
end;

procedure TForm1.Edit1Change(Sender: TObject);
var S: string;
begin
  S:=Form1.Edit1.Text;
 if(Length(s)>0) then
begin
   DataModule3.ADOTable1.Filtered:=False;
   DataModule3.ADOTable1.Filter:='Òèï_ìîòî LIKE ' + #39 + Edit1.Text + '%' + #39;
   DataModule3.ADOTable1.Filtered:=True;
  end
  else
  begin
      DataModule3.ADOTable1.Filtered:=False;
      DataModule3.ADOTable1.Filter:='';
end;
end;

var fName: string; //Переменная для хранения имени поля БД
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
//Выбор поля для фильтрации и получение его имени, как оно задано в БД
 fName := ADOTable1.Fields[ComboBox1.ItemIndex + 1].FieldName;
//Разблокировка поля ввода фильтра
 Edit1.Enabled := true;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
//Отмена фильтрации
 ADOTable1.Filtered := false;
//Если поле ввода пусто - выходим
 if Length(Trim(Edit1.Text)) = 0 then Exit;
//Накладываем новый фильтр
 ADOTable1.Filter := Format('%s LIKE '#39'%s%%'#39, [fName, Edit1.Text]);
//Активируем фильтрацию
 ADOTable1.Filtered := true;
end;