Delphi - consutlta a base de datos

Buenas Foro tengo la siguiente consulta a un qwery que me funciona muy bien, pero solo puedo hacer la consulta a un campo de la tabla y yo lo que deseo es poder hacer la misma consulta a la tabla entera, sin distincion de campos.

Query1.Close;
Query1.SQL.Clear;
query1.SQL.Add('select * from exportacion where Fabricante like'+ #39+Edit1.Text+'%'+#39);
Query1.Open;

Gracias anticipadas

Necesitas la lista de los campos de tu tabla, y en un cliclo agregar una linea SQL.Add, por cada campo, supongamos que en un archivo de texto tienes guardados los campos de la tabla, un campo por linea, es decir, separados por un enter haces lo siguiente

Variables:

campos:TStringList;
i:integer;

Query1.Close;
Query1.SQL.Clear;
query1.SQL.Add('select * from exportacion where Fabricante like'+ #39+Edit1.Text+'%'+#39);
campos := TStringList.Create;
campos.loadFromFile('Campos.txt');
for i:=1 to campos.count do begin
query1.SQL.Add('OR '+campos[i]+' like '+ #39+Edit1.Text+'%'+#39);
end;
Query1.Open;
campos.free;

Mas o menos así, como puedes notar, el archivo de texto se llama campos, y debe estar en el directorio de la aplicación, si deseas puedes ponerlo en otro lugar pero especificando la ruta, tambien hay que omitir el campo fabricante en el archivo de texto

buenas el programa me correo, pero tengo un problema cuando intento hacer la busqueda me da un error que dice list index out of bounds (6) lista de índice fuera de límites.

Pueden ayudarme.

En esta linea:

for i:=1 to campos.count do begin

hay que cambiarla por esta

for i:=1 to campos.count-1 do begin

Ahora me da un error dice que hay un error sintactico, y que el operador esta perdido o no se encuentra.
Este es el codigo que estoy utilizando y lo pongo en el evento onchanse de un edit
los SQL.ADD los he puesto tambien debajo del for

adoQuery1.Close;
adoQuery1.SQL.Clear;
adoquery1.SQL.Add('select * from table1 where nombre like'+ #39+Edit1.Text+'%'+#39);

adoquery1.SQL.Add('select * from table1 where APELLIDOS like'+ #39+Edit1.Text+'%'+#39);
adoquery1.SQL.Add('select * from table1 where DIRECCION like'+ #39+Edit1.Text+'%'+#39);

campos := TStringList.Create;
campos.loadFromFile('Campos.txt');
for i:=1 to campos.count-1 do begin
adoquery1.SQL.Add('OR '+campos[i]+' like '+ #39+Edit1.Text+'%'+#39);

end;
adoQuery1.Open;
campos.free;

En que linea te marca el error, y cuando, cuando lo estas compilando, o cuando está ejecutandose

El error lo marca luego de ejecutado cuando intento hacer la busque.
El error lo da para todas las posiciones de la busqueda.

Como lo veo, si ejecutas así como pones la consula te va a marcar el error, pues estás poniendo múltiples sentencias SELECT

adoQuery1.Close;
adoQuery1.SQL.Clear;
adoquery1.SQL.Add('select * from table1 where nombre like'+ #39+Edit1.Text+'%'+#39);

adoquery1.SQL.Add('select * from table1 where APELLIDOS like'+ #39+Edit1.Text+'%'+#39);
adoquery1.SQL.Add('select * from table1 where DIRECCION like'+ #39+Edit1.Text+'%'+#39);

campos := TStringList.Create;
campos.loadFromFile('Campos.txt');
for i:=1 to campos.count-1 do begin
adoquery1.SQL.Add('OR '+campos[i]+' like '+ #39+Edit1.Text+'%'+#39);

end;
adoQuery1.Open;
campos.free;

Corregido sería así:

adoQuery1.Close;
adoQuery1.SQL.Clear;
adoquery1.SQL.Add('select * from table1 where nombre like'+ #39+Edit1.Text+'%'+#39);
campos := TStringList.Create;
campos.loadFromFile('Campos.txt');
for i:=1 to campos.count-1 do begin
adoquery1.SQL.Add('OR '+campos[i]+' like '+ #39+Edit1.Text+'%'+#39);
end;
adoQuery1.Open;
campos.free;

Aun asi me sigue dando el mismo problemas, pero de todas formas gracias mejor lo seguire realizando por un solo campo de la tabla.

Prueba esto ya nada más para ver si es lo que pienso, esto funciona solo para campos tipo STRING, si lo intentas con campos numericos te va a marcar error

adoQuery1.Close;
adoQuery1.SQL.Clear;
adoquery1.SQL.Add('select * from table1 where nombre like '+QuotedStr(Edit1.Text+'%'));
campos := TStringList.Create;
campos.loadFromFile('Campos.txt');
for i:=1 to campos.count-1 do begin
adoquery1.SQL.Add('OR '+campos[i]+' like '+ QuotedStr(Edit1.Text+'%'));
end;
adoQuery1.Open;
campos.free;