Posterize example for Delphi

This example applies a six-color poster effect and redisplays the image.

Lead1.Posterize(6);
Lead1.ForceRepaint;