[[Lepe]]

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   try
     {instrucciones del programa}
   except
      transacciones.rollback;
      raise; // levantamos de nuevo la excepción producida, para que el usuario
               // final pueda verla.
     //Aquí me gustaría mostrar el mensaje de error generado por otra clase
   end;
 end;