Gracias por responderme, como no se trabajar mucho, realice lo siguiente:
Código SQL
[-] Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * FROM historial');
Query1.SQL.Add('fecha_e =:fechav');
Query1.ParamByNAme('fechav').AsDate:=Fecha.Date;
Query1.Open;
lo cual me marca un error aqui
Query1.SQL.Add('fecha_e =:fechav'); /// En el signo igual