Polygon Stipple

Could anyone possibly give a Delphi example of defining and using Polygon Stippling?