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