Draws the outline of a polygon using the current line style and color.
procedure DrawPoly(NumPoints: Word; var PolyPoints);
NumPoints specifies the number of coordinates in PolyPoints. A coordinate consists of two words, an X and a Y value.
Must be in graphics mode.