procedure TForm1.FormCreate(Sender: TObject); begin
  adoquery1.SQL.Text := ''SELECT * FROM CARS'';
  adoquery1.Active := true;
  dbadvgrid1.FilterEdit.Enabled := true; end; end;

procedure TForm1.DBAdvGrid1FilterEditDone(Sender: TObject; ACol: Integer;
  Condition: string; FilterType: TFilterType); begin
  //event is triggered when built-in filtering is not used and from here custom dataset filtering can be done
  if ACol = BrandColumn then
    adoquery1.SQL.Text := ''SELECT * FROM CARS WHERE BRAND LIKE ''''''+
Condition+'''''''';
  if ACol = TypeColumn then
    adoquery1.SQL.Text := ''SELECT * FROM CARS WHERE TYPE LIKE ''''''+
Condition+'''''''';
  adoquery1.Active := true;
end;

procedure TForm1.DBAdvGrid1FilterEditUpdate(Sender: TObject; ACol: Integer;
  Condition: string; FilterType: TFilterType); begin
  //just set the flag that built-in filtering will not be used
  DBAdvGrid1.DoAutoEditFilter := false;
end;