Okay habe eine andere Möglichkeit entdeckt...
----try except block-------
zB.
Query.SQL.TEXT ' DELETE BLA FROM TABELLEBLA WHERE BLA_ID =.... '
Query.Exec.SQL
Query.SQL.TEXT ' DELETE BLUB FROM TABELLEBLUB WHERE BLUB_ID =.... '
Query.Exec.SQL
finaly...
free.