Source position: tiObject.pas line 72
type TObjForEachMethod = procedure(
AObject: TObject
) of object;