怎么删除语句(数据库的信息).关系数据表

在delphi中删除两个有关系的表>
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('delete  from czyxx where czydm='''+str+'''');
    adoquery1.ExecSQL;
    adoquery2.Close;
    adoquery3.SQL.Clear;
    adoquery2.SQL.Add('delete  from qx where czydm='''+str+'''');
    adoquery2.ExecSQL;