PaintDither (ImageList Control) example for Delphi 4

   {set the control to use error diffusion}
    LEADImgList1.PaintDither := pdDiffusion;