Emboss example for Delphi
This example applies an emboss effect and repaints the image.
Lead1.Emboss(EMBOSS_NE, 500); Lead1.ForceRepaint;