Source position: fpthreadpool.pp line 45
type TExceptionEvent = procedure(
Sender: TObject;
aException: Exception
);