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