TEDBDebugNotificationEvent = procedure (Sender: TObject; SourceLine: Integer; ExceptionRaised: TObject) of object