Mosaic example for Delphi

This example applies a mosaic effect with 8x8 tiles and redisplays the bitmap.

Lead1.Mosaic(8);
Lead1.ForceRepaint;