Source position: bgrareadbmp.pas line 57
type TWriteScanlineProc = procedure(
Row: Integer;
Img: TFPCustomImage
) of object;