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