Emboss example for Delphi

This example applies an emboss effect and repaints the image.

Lead1.Emboss(EMBOSS_NE, 500);
Lead1.ForceRepaint;