Source position: tiObject.pas line 80
type TtiObjectUpdateEvent = procedure(
ASubject: TtiObject;
AOperation: TNotifyOperation
) of object;