BitonalScaling (ImageList Control) example for Delphi

   {set the control to use scale to gray}
    LEADImgList1.BitonalScaling := btsScaleToGray ;