yo hago esto, espero que te sirva
Código Delphi
[-]
procedure TFrmDlgBusquedaPrefacturas.EditClienteChange(Sender: TObject);
begin
if EditCliente.Text <> EmptyStr then
begin
ADOQuery1.Filtered:=False;
ADOQuery1.Filter:='Cliente like '+QuotedStr('%'+ EditCliente.Text + '%');
ADOQuery1.Filtered:=True;
end
Else
begin
ADOQuery1.Filtered:=False;
end;
end;