[dec]

Hola,

Abrá tantas maneras como la imaginación de cada quién, ahí va una que creo puede servir:

Código Delphi [-]
  ADOQ.SQL.Text := 'select * from SANCIONES where NOMBRE like %'+ edit1.Text +'%';