Delphi - sulucionar

este es mi codigo tengo un tquery y un datasource:
procedure TForm3.Edit1Change(Sender: TObject);
begin
ACTUALIZAR_DATOS;
end;


procedure TForm3.FormShow(Sender: TObject);
begin
ACTUALIZAR_DATOS;
end;

PROCEDURE TForm3.ACTUALIZAR_DATOS();
BEGIN
query1.close;
query1.sql.Text := 'select * from BLIBROS where (TITULO like '+ QuotedStr('%'+edit1.Text+'%') +') or (AUTOR like '+ QuotedStr('%'+edit1.Text+'%') +') or (TEMA_1 like '+ QuotedStr('%'+edit1.Text+'%') +') OR (TEMA_2 like '+ QuotedStr('%'+edit1.Text+'%') +') ORDER BY TITULO';
query1.Active:=True;
query1.open;
end;
el problema es ke en el dbgrid no muestran los registros solo el nombre de las columnas ¿Còmo soluciono ese problema?

Necesitas probar primero campo por campo, deja solo el campo titulo, y ve agregandolos

query1.sql.Text := 'select * from BLIBROS where (TITULO like '+ QuotedStr('%'+edit1.Text+'%') +') ORDER BY TITULO';

Si funciona, agrega el autor, y asi sucesivamente

no funciona e t pero gracias por sulucionarme eso