STable example for Delphi

//This example remaps the saturation of each color to one half its original
var
   i: Integer;
   RasterProc: LEADRasterProcess;
begin

   RasterProc:= CreateComObject (CLASS_LEADRasterProcess) as LEADRasterProcess;

   for i:= 0 to 255 do
      RasterProc.STable [i]:= trunc(i / 2);

   RasterProc.RemapHue ( LEADRasterView1.Raster, False, False, True, False);
end;