[schaka]

Hola que tal , soy nuevo en el foro y me he enfrentado a mi primer problema tratanto de realizar una busqueda incremental utilizando una conexion zeos para poder unir mysql con delphi.
bueno mi problema es que necesito una busqueda de una cadena que recojo de un tedit la cual tiene espacios entre si, por ejemplo: "casa gato mujer amigo" esta cadena es la que leo de un edit, y me interesa hacer la busqueda incremental en los registros donde tenga la ocurrencia de "casa", "gato", "mujer", "amigo" , ya sea en un solo registro o varios , ademas de esto sin importar la posicion de ellos , es decir, si primero aparece en el registro "amigo" y despues esta "gato", o viceversa, espero me puedan ayudar, les pongo mi codigo que tengo para mi busqueda incremental.


procedure TForm1.Edit1Change(Sender: TObject);
begin

ZQuery1.close;
ZQuery1.sql.clear;
ZQuery1.sql.add('Select * from lista');
ZQuery1.sql.add('where lista like "%'+Edit1.Text+'%") ;
ZQuery1.open;


end;

esta funcion esta ligada a un evento de mi edit de onchange, entonces cada vez que escriba algo en el tedit se ejecutara el codigo que les he puesto.
Espero me puedan ayudar