ese problema ya lo tube ase unas semanas y lo resolvi de la siguiete manera
Código Delphi
[-]
var
consulta,buscar:string;
x:integer;
begin
buscar:=edit1.Text;
consulta:='select * from tutabla where campo like "%'+buscar+'%"';
query1.SQL.Clear;
query1.SQL.Add(consulta);
query1.Active:=true;
query1.Open;