IntensityDetect example for Delphi

This example filters the bitmap to get the lightest intensities and repaints the image.

var
   sRet: Smallint;
   RasterProc: LEADRasterProcess;
begin
   RasterProc:= CreateComObject (CLASS_LEADRasterProcess) as LEADRasterProcess;
   RasterProc.IntensityDetect (LEADRasterView1.Raster, 200, 255);
   LEADRasterView1.ForceRepaint (sRet);
end;