Light example for Delphi

procedure TForm1.LightClick(Sender: TObject);
var
   ptCenter: TPoint;
begin
   ptCenter.x:= Trunc(LEADImage1.BitmapWidth /2);
   ptCenter.y:= Trunc(LEADImage1.BitmapHeight /2);

   LEADImage1.Light( ptCenter, Trunc(max(LEADImage1.BitmapHeight, LEADImage1.BitmapWidth)/2), Trunc(min(LEADImage1.BitmapHeight, LEADImage1.BitmapWidth)/2), 0, 50, 0, RGB(255, 255, 255), 100, LGT_SPOTLIGHT, 1, 100, 100, RGB(255,255,255) );
end;