STable example for Delphi

{This example considers that the image you are working with is 24 bpp.} 
var
   i: L_UINT; 
   uVal: L_UINT; 
   Msg: String; 
begin
   {This example remaps the saturation of each color to one half its original}

   LEADImage1.RemapHueTablesSize:= 256; 
   for i:= 0 to 255 do
   begin
      LEADImage1.STable[i]:= Trunc(i/2); 
      uVal:= LEADImage1.STable[i]; 
      Msg:= Msg + IntToStr(uVal)+ ' '; 
   end; 
   ShowMessage ( Msg ) ; 
   LEADImage1.RemapHue( False, False, True, False ) ; 
end;