Source position: fpjson.pp line 600
type TJSONObjectIterator = procedure(
const AName: TJSONStringType;
Item: TJSONData;
Data: TObject;
var Continue: Boolean
) of object;