Recherche/Filtrage Multicriteres dans une base de donnees a l'aide d'une combobox

procedure TForm1.BrechercheClick(Sender: TObject);
Var Option: TLocateOptions;
begin
If ((Table1.recordcount=0) and (table1.state<>dsinsert))then
exit;
if erechnom.Text<>'' then
begin
Option:=[loPartialKey]; //pour ne pas faire attention a la casse
Table1.Locate('nom',erechnom.Text,Option)
end;
end;

procedure TForm1.EfiltreNomChange(Sender: TObject);
var Filtre:string;
begin
//Construction du filtre
Filtre:='nom ='''+ efiltrenom.Text +'*''';
If ((Table1.recordcount=0) and (table1.state<>dsinsert))then
exit;
If efiltrenom.Text='' then
begin
Table1.Filtered:=false; //arrete le filtrage
exit;//quiter la méthode
end;
Table1.Filter:=Filtre; //mise en place du filtre
Table1.Filtered:=True; //activation du filtre
end;

Procedure TForm1.ComboBox1Change (Sender : TObject) ;
Begin
AdoQuery.Active := False ;
AdoQuery.Sql.Text := ‘Select * form (1) Where (2) = QuotedStr(ComboBox1.texte)
AdoQuery.Active := True;
End;

Procedure TForm1.ComboBox1Change (Sender : TObject) ;
Begin
AdoQuery.Active := False ;
AdoQuery.Sql.Text := ‘Select * form BaseD Where Nom= QuotedStr(ComboBox1.texte)
AdoQuery.Active := True;
End;

combobox1.Items:=table1.FieldList;
combobox1.Text:='';

combobox1.Text:=combobox1.SelText;

Filtre:= combobox1.Text + '=''' + efiltrenom.Text +'*''';