Source position: tiThread.pas line 68
type TtiThreadEvent = procedure(
const AThread: TtiThread
) of object;