Source position: fpjson.pp line 469
type TJSONArrayIterator = procedure(
Item: TJSONData;
Data: TObject;
var Continue: Boolean
) of object;