Estimado utilice la función Abort().
Creo que la sugerencia de utilizar las reglas de integridad es lo mejor.
Código Delphi
[-]
TwDataModule.qOrdenBeforeDelete(DataSet: TDataSet);
begin
if qOrdenFACTURA.Value <> '' then
begin
scMessageDlg('No se puede editar o eliminar una orden facturada.',mtInformation,[mbOk],0);
Abort()
end;
end;
Saludos