LightControl example for Delphi

procedure TForm1.LightControlClick(Sender: TObject);
var
   LowerAvr: Array [ 0..2 ] of L_UINT;
   Average: Array [ 0..2 ] of L_UINT;
   UpperAvr: Array [ 0..2 ] of L_UINT;
begin
   LowerAvr[0]:= 100;{for blue, gray or yuv}
   LowerAvr[1]:= 120;{for green}
   LowerAvr[2]:= 80; {for red}

   Average [0]:= 150;{for blue, gray or yuy}
   Average [1]:= 140;{for green}
   Average [2]:= 128;{for red}

   UpperAvr[0]:= 190;{for blue, gray or yuv}
   UpperAvr[1]:= 200;{for green}
   UpperAvr[2]:= 220;{for red}

   LEADImage1.LightControl( @LowerAvr, @Average, @UpperAvr, RGB_SPACE );
end;