[Chogo]

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;