DM.IBSQLMouldEng.SQL.Clear();
    DM.IBSQLMouldEng.SQL.Add('DELETE FROM MOULDENG');
    DM.IBSQLMouldEng.SQL.Add('WHERE ROOT = '+IntToStr(DM.IBQueryMouldEngRWROOT.AsInteger)
                            +' AND LEVELS = '+IntToStr(DM.IBQueryMouldEngRWLEVELS.AsInteger)
                            +' AND PARENT_KOD = '+IntToStr(DM.IBQueryMouldEngRWPARENT_KOD.AsInteger)
                            +' AND KOD = '+IntToStr(DM.IBQueryMouldEngRWKOD.AsInteger)
                            +' AND KOD_TYPEENG = '+IntToStr(DM.IBQueryMouldEngRWKOD_TYPEENG.AsInteger));
    DM.IBSQLMouldEng.ExecQuery();
    DM.IBSQLMouldEng.SQL.Clear();
    DM.IBSQLMouldEng.SQL.Add('COMMIT');
    DM.IBSQLMouldEng.ExecQuery();
    DM.IBTransactionDisp.Active:=True;
    DM.IBQueryMouldEngRW.Refresh();