[DARK_WARRIOR]

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+'%"';
 //el % le dise que busque la subcadena 
query1.SQL.Clear;
query1.SQL.Add(consulta);
query1.Active:=true;
query1.Open;