，哪里出错？简单有关问题求大家看看！

求救，哪里出错？？简单问题求大家看看！！
dmST.cmdShare.CommandText := 'DELETE FROM ST_Person WHERE Person_ID  in ' +
    ' (select Person_ID from ST_DeleteCard where Del_Date between ''d1'' and ''d2'') '+
    ' and Is_Del=1';
    Parameters.ParamByName('d1').Value := DateToStr(dtpBgnDate.date);
    Parameters.ParamByName('d2').Value := DateToStr(dtpEndDate.date);
    dmST.cmdShare.Execute;
显示 Parameters d1 not found 。是不是类型什么的部一样啊。求改正
------解决方案--------------------
dmST.cmdShare.CommandText := 'DELETE FROM ST_Person WHERE Person_ID  in ' +
    ' (select Person_ID from ST_DeleteCard where Del_Date between '':d1'' and '':d2'') '+
    ' and Is_Del=1';

参加要加:号。
------解决方案--------------------
你把双引号也去掉试试
------解决方案--------------------
dmST.cmdShare.CommandText := 'DELETE FROM ST_Person WHERE Person_ID  in ' +
    ' (select Person_ID from ST_DeleteCard where Del_Date between :d1 and :d2) '+
    ' and Is_Del=1';
    Parameters.ParamByName('d1').Value := dtpBgnDate.date;
    Parameters.ParamByName('d2').Value := dtpEndDate.date;
    dmST.cmdShare.Execute;

这样试试
------解决方案--------------------
4楼正解
--（请输入一个长度至少是6的字符串）