LensFlare example for Delphi

procedure TForm1.LensFlareClick(Sender: TObject);
var
   ptCenter: TPoint;
begin
   ptCenter.x:= Trunc(LEADImage1.BitmapWidth /4);
   ptCenter.y:= Trunc(LEADImage1.BitmapHeight /4);
   LEADImage1.LensFlare( ptCenter, 100, LNS_TYPE_1,  RGB(100, 150, 10));
end;