ContourFilter example for Delphi

var
   RasterProc: LEADRasterProcess;
begin
   RasterProc:= CreateComObject (CLASS_LEADRasterProcess ) as LEADRasterProcess;
   RasterProc.ContourFilter (LEADRasterView1.Raster,
                            20, 35, 5, CONTOUR_APPROX_COLOR);
end;