Source position: tiThreadProgress.pas line 77
type TProgressVisibleChangeEvent = procedure(
const AVisible: Boolean
) of object;