PaintDither example for Delphi

This example turns on error diffusion and redisplays the bitmap.

Lead1.PaintDither := pdDiffusion;
Lead1.ForceRepaint;