DrawGlow

procedure DrawGlow(img: TImage32; const polygon: TArrayOfPointD; fillRule: TFillRule; color: TColor32; blurRadius: integer); overload;

procedure DrawGlow(img: TImage32; const polygons: TArrayOfArrayOfPointD; fillRule: TFillRule; color: TColor32; blurRadius: integer); overload;


  uses Image32, Image32_PNG, Image32_vector, Image32_Extra;
  ...
  var
    img: TImage32;
    path: TArrayOfPointD;
  begin
    img := TImage32.Create(256,256);
    path :=  Star(PointD(128, 128), 50, 100, 7);
    DrawGlow(img, path, frNonZero, clYellow32, 10);
    DrawPolygon(img, path, frNonZero, clAqua32);
    DrawLine(img, path, 2, clNavy32, esClosed);
    img.SaveToFile('glowing_star.png');
    img.Free;
  end;