Abortar DELETE de una base de datos

[Jose Roman]

Cordial saludo,

Trabajo con Delphi Rio, Firebird 2.5 y FireDAC.

Tengo una tabla la cual tiene un campo correspondiente a ORDEN DE TRABAJO llamado ID_ORD y otro campo para FACTURACION llamado ID_FAC, lo que deseo es que si el usuario desea eliminar una ORDEN DE TRABAJO se verifique que no haya sido facturada, si esta facturada entonces se aborte el ELIMINAR EL REGISTRO, lo tengo con el siguiente codigo:

Código Delphi [-]
procedure TwDataModule.qOrdenBeforeDelete(DataSet: TDataSet);
begin
  if qOrdenFACTURA.Value <> '' then
  begin
    scMessageDlg('No se puede editar o eliminar una orden facturada.',mtInformation,[mbOk],0);
    qOrden.Cancel;
  end;
end;

Esta parte no hay problema y evita que el usuario pueda eliminar el registro que tenga un numero de factura, mi problema es que despues de esto se muestra un mensaje de error y no se como evitarlo, quizas estoy haciendo mal las cosas, necesito de su colaboracion. Gracias de antemano.