TDBGExceptionEvent

type TDBGExceptionEvent = procedure(

  Sender: TObject;

  const AExceptionType: TDBGExceptionType;

  const AExceptionClass: string;

  const AExceptionLocation: TDBGLocationRec;

  const AExceptionText: string;

  out AContinue: Boolean

) of object;