Oilify example for Delphi

This example applies an oil-painting effect and repaints the image.

Screen.Cursor := crHourGlass;
Lead1.Oilify(10);
Lead1.ForceRepaint();
Screen.Cursor := crDefault;