Supongo que será una errata pero a esa sentencia le falta el "where":
Código SQL
[-] Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * FROM historial');
Query1.SQL.Add('where fecha_e =:fechav');
Query1.ParamByNAme('fechav').AsDate:=Fecha.Date;
Query1.Open;