Hola
Trabajo con access y de vez en cuando se vuelve loca, hay que engañarla introcuciendo un registro sin sentido, pero bueno al caso en tu codigo veo que resulta bien asi:
Código Delphi
[-]
Consulta.Close;
Consulta.SQL.Clear;
Consulta.SQL.Text:= 'SELECT * FROM TablaLibro WHERE Título LIKE '+QuotedStr( Ebusqueda.Text )+'';
Consulta.Filtered := True;
Tengo un codigo casi igual y funciona, pruebalo tal vez te sirva
Saludos