Source position: contnrs.pp line 489
type TObjectIteratorCallback = procedure(
Item: TObject;
const Key: AnsiString;
var Continue: Boolean
);