Delphi TADOQuery sql语句中使用变量 自动类型不正确（不正常地定义参数对象。提供了不一致或不完整的信息）

我的代码：

qryT.SQL.Text:='insert into CM_Contract_C(ConGUID, strContractID, strContractGrp, dtZbjStartDate, dtZbjEndDate )'+
  ' select :ConGUID, strContractID, :ContractGrp, :dtZbjStartDate, :dtZbjEndDate from CM_Contract_B where 1=1 ';
qryT.Parameters.ParamByName('ConGUID').Value:=m_strConGUIDC;       
qryT.Parameters.ParamByName('ContractGrp').Value:=GetID('|',edtContractGrp.Text);
qryT.Parameters.ParamByName('dtZbjStartDate').DataType:=ftDateTime;
if dtpZbjStartDate.Checked then
begin
  qryT.Parameters.ParamByName('dtZbjStartDate').Value:=DateTimeToStr(dtpZbjStartDate.Date);
end
else
begin
  qryT.Parameters.ParamByName('dtZbjStartDate').Value:=null;
end;

if dtpZbjEndDate.Checked then
begin
  qryT.Parameters.ParamByName('dtZbjEndDate').Value:=DateTimeToStr(dtpZbjEndDate.Date);
end
else
begin
  qryT.Parameters.ParamByName('dtZbjEndDate').Value:=null;
end;
qryT.ExecSQL;

其中dtZbjStartDate 和 dtZbjEndDate 字段类型为 datetime
但是执行的时候一直报错，不正常地定义参数对象。提供了不一致或不完整的信息，检查发现是 dtZbjStartDate 和 dtZbjEndDate自动识别类型为nvarchar(19)

于是在赋值之前我增加了：

qryT.Parameters.ParamByName('dtZbjStartDate').DataType:=ftDateTime;
qryT.Parameters.ParamByName('dtZbjEndDate').DataType:=ftDateTime;

然后问题完美解决。

总结：对于ADOQuery变量操作这种类型的定义最好变成手工定义才能确保类型正确，以避免不必要的错误发生类似于这样类型不匹配的问题