Source position: fpwritepng.pp line 24
type TGetPixelFunc = function(
x: LongWord;
y: LongWord
):TColorData of object;