Por cierto, veo que los parametros de un TADOQuery no son TParams "normales" del Delphi, sino que usan solo variantes (que miedo).
Pido disculpas, pensaba que funcionaban como todo el resto.
Podrias probar a poner un valor string en el .value del parametro (ya se que te estoy diciendo lo contrario que te dije al principio
)
Código:
Query2.Parameters.ParamByName('fecha1').Value := FormatDateTime('dd/mm/yyyy', dtpc1.Date);
o
Código:
Query2.Parameters.ParamByName('fecha1').Value := DateToStr(dtpc1.Date);
Saludos,
Gerard.