BinaryFilter example for Delphi

This example does omni-directional erosion of black objects and repaints the image.

Var
   RasterProc: LEADRasterProcess;
   sRet: smallint;
begin
   RasterProc:= CreateComObject (CLASS_LEADRasterProcess) as LEADRasterProcess;
   LEADRasterView1.Raster.UnlockSupport (L_SUPPORT_DOCUMENT, 'TestKey');
   RasterProc.BinaryFilter (LEADRasterView1.Raster, BFLT_EROSION_OMNI);
   LEADRasterView1.ForceRepaint (sRet);
end;