请问大虾!一个日期保存问题,

ADate:=formatdatetime('yyyy-mm-dd',DTP1.Date);  
sqlstr:= 'insert into yx_ywsl(YX_SLDH,YX_SQR,YX_LXR,YX_SFZ,YX_LXDH,' +
           'YX_YHDZ,YX_SQRQ,YX_SLR,YX_SLLXDM,YX_BZXX,YX_SFPD,YX_YHBH,YX_JBDBH,YX_QBBH) values(' +
            '''' + trim(edt_sldh.Text) + '''' + ',' +
            '''' + trim(edt_sqr.Text) + '''' + ',' +
            '''' + trim(edt_lxr.Text) + '''' + ',' +
            '''' + trim(edt_sfz.Text) + '''' + ',' +
            '''' + trim(edt_lxdh.Text) + '''' + ',' +
            '''' + trim(edt_yhdz.Text) + '''' + ',' +
            ''''+ADate+''''+','+//注意这个是日期型
            '''' + trim(edt_slr.Text) + '''' + ',' +
            '''' + trim(Com_sllx.Text) + '''' + ',' +
            '''' + trim(edt_bzxx.Text) + '''' + ',' +
            ''''+trim(Com_sfpd.Text) +''''+ ',' +
            '''' + trim(edt_yhbh.Text) + '''' + ',' +
            '''' + trim(Edt_jbdbh.Text) + '''' + ',' +
            '''' + trim(Edt_qbbh.Text) + '''' + ')';
          try
            DataModule1.ADOC1.BeginTrans;
            DataModule1.AQ_Temp.Close;
            DataModule1.AQ_Temp.SQL.Clear;
            DataModule1.AQ_Temp.SQL.Add(sqlstr); 
            DataModule1.Query1.ExecSQL;
            DataModule1.ADOC1.CommitTrans;
为什么ADate总报错,如果用insert into 这样形式来保存日期型数据该怎么写,请大虾写出来给小弟看看,谢谢!