Hola xavisosa, prueba esto:
Código Delphi
[-]
.............
Query1.SQL.Add('Select Descripcion From Entradas.db Where CodEntrada Like '+QuotedStr('%'+'01'));
Query1.RequestLive:=true;
Query1.Open;
Supongo que si usas parametros también tendras que enviarlo como String (AsString).
Saluditos