borrar en detalle con ref en maestro

[ebeltete]

Hola, trabajo con Firdbird 2.0 y Delphi 5, tengo un a tabla maestro "clientes" y la table detalle "departamentos", tengo esta referencia:
ALTER TABLE clientes ADD CONSTRAINT FK_DEPTO FOREIGN KEY (cl_DEPTO) REFERENCES DEPARTAMENTOS (CODIGO) ON UPDATE CASCADE ON DELETE NO ACTION;

cuando borro un registro en la tabla departamentos con una referencia en la tabla clientes, no me muestra ningun error y lo borra, pero cuando cierro y abro nuevamente la aplicacion, el registro aparece, o sea que en definitiva no lo borra de la bbdd, como hago para que me muestre un mensaje de que ese registro tiene referencias en algun cliente? Lo hago con una consulta sql antes de borrar o mediante cascade o no action hay alguna manera que la firebird me lo impida respondiendome con un mensaje?