[dec]

Hola,

Por decir algo... ¿probaste de este modo?

Código Delphi [-]
procedure TDataModule1.ATDetailSalidaProductoBeforePost(DataSet: TDataSet);
begin
  abort;
  ShowMessage('Por que aparece este mensaje dos veces');
end;