En el select no se admiten parámetros, usa otra forma:
Código Delphi
[-]
const Misql = ' select %s from %s where CampoTotal = %s and fecha between :fini and :ffin'
begin
query1.sql.text := Format(Misql, ['Nombre', 'Mitabla', '33']);
Query1.ParamByName('fini').asDateTime := DateTimePicker1.Date;
Query1.ParamByName('ffin').asDateTime := DateTimePicker2.Date;
Saludos