VTable example for Delphi

//This example remaps the "value" 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.VTable [i]:= Trunc(i / 2);
   RasterProc.RemapHue ( LEADRasterView1.Raster, False, False, False, True );
end;