VTable example for Delphi

{This example considers that the image you are working with is 24 bpp.} 
var
   i: L_INT; 
   uVal: L_UINT; 
   Msg: String; 
begin
   LEADImage1.RemapHueTablesSize:= 256; 
   {This example remaps the "value" of each color to one half its original}
   for i:= 0 To 255 do
   begin
      LEADImage1.VTable[i]:= Trunc(i/2); 
      uVal:= LEADImage1.VTable[i]; 
      Msg:= Msg + IntToStr (uVal)+ ' '; 
   end; 
   ShowMessage ( Msg ); 
   LEADImage1.RemapHue( False, False, False, True ); 
end;