Source position: tiThread.pas line 96
type TtiThreadCountChangeEvent = procedure(
const AThreadCount: Integer
) of object;