Procedure SetFillPattern (FillPattern : FillPatternType, Color : Word) ;
SetFillPattern sets the current fill-pattern to FillPattern, and the filling color to Color
The pattern is an 8x8 raster, corresponding to the 64 bits in FillPattern.
None
GetFillPattern, SetFillStyle