Standard PutImage procedure prototype.
Source position: graphh.inc line 534
type putimageproc = procedure(
X: SmallInt;
Y: SmallInt;
var Bitmap;
BitBlt: Word
);