Source position: tiObject.pas line 79
type TtiObjectEvent = procedure(
const AObject: TtiObject
) of object;