Source position: graphics.pp line 2036
function AllocPatternBitmap(
colorBG: TColor;
colorFG: TColor
):TBitmap;