Average example for Delphi

This example applies an average filter with a 3x3 neighborhood and redisplays the bitmap.

var
   RasterProc: LEADRasterProcess;
   sRet: smallint;
begin
   RasterProc:= CreateComObject (CLASS_LEADRasterProcess) as LEADRasterProcess;
   RasterProc.Average (LEADRasterView1.Raster, 3);
   LEADRasterView1.ForceRepaint (sRet);
end;