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? la base de datos esta en ACCES

Hubiera sido mas que suficiente con esto:
...
query1.Refresh;//esto actualiza los datos reales
//tampoco necesitas colocar de nuevo la consulta SQL
...