Star

function Star(const focalPt: TPointD; innerRadius, outerRadius: double; points: integer): TArrayOfPointD;


uses Image32, Image32_PNG, Image32_vector, Image32_Extra;
...
var
  img: TImage32;
  polygon: TArrayOfPointD;
begin
  img := TImage32.Create(150,150);
  polygon :=  Star(PointD(128, 128), 50, 100, 7);
  DrawGlow(img, polygon, frNonZero, clYellow32, 10));
  DrawPolygon(img, polygon, frNonZero, clAqua32);
  HatchBackground(img, clWhite32, clSilver32, 10);
  img.SaveToFile('glowing_star.png');
  img.Free;
end;