IntensityDetect example for Delphi

LEADImage1.IntensityDetect ( 128, 255, RGB(0, 0, 0), RGB(255, 255, 255), IDB_CHANNEL_MASTER ); 
LEADImage1.ForceRepaint ( );