Source position: bgrascanner.inc line 54
type TScanAtIntegerFunction = function(
X: Integer;
Y: Integer
):TBGRAPixel of object;