Hola a todos, la solución propuesta está buena pero creo que trabajaría mejor si en el nº 2 del Case en lugar de la sentencia propuesta usaramos:
Código Delphi
[-]Query1.Sql.Add('Where Campo Like '+QuotedStr('%'+Cadena+'%'));
La propuesta creo que da error.
Espero valga la aclaración.
Saludos