Star

uses Img32, Img32.Fmt.PNG, Img32.vector, Img32.Extra;
...
var
  img: TImage32;
  polygon: TPathD;
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;