Hola Douglas, fijate me he dado cuenta que en el Where falta un espacio delante, asi:
Código Delphi
[-]query1.SQL.Text:=' where fecha between :FechaIn and :FechaFin';
porque sin el espacio la consulta queda junta asi:
Código SQL
[-]select sum(monto) from Tablawhere fecha between :FechaIn and :FechaFin
en vez de:
Código SQL
[-]select sum(monto) from Tabla where fecha between :FechaIn and :FechaFin
espero que te ayude.
Saludos