TExceptionEvent Event

MtxForLoop
MulticastDelegate→TExceptionEvent

type TExceptionEvent = procedure(Sender: TObject; E: Exception) of object;

Exception event signature.