Source position: contnrs.pp line 481
type TObjectIteratorMethod = procedure(
Item: TObject;
const Key: string;
var Continue: Boolean
) of object;