Saludos
Solo cambiar y agregar algo:
Código Delphi
[-]
ADOQuery1.Parameter.ParamByName('fecha').value := DateTimePicker1.Date; ADOQuery1.Parameter.ParamByName('fecha').DataType:=ftDate
Ado muchas veces no convierte el parametro al tipo de dato que deberia ser.