Query中参数赋值如下写:
paramByName('sDate').Value :=ADatetime;  也出现同样的错误