AdaptiveContrast example for Delphi

procedure TForm1.Button1Click(Sender: TObject);

begin
   { This example loads a bitmap and applies Adaptive Contrast Enhancement }
   { Load the bitmap, keeping the bits per pixel of the file }
   LEADImage1.Load ('image1.cmp', 0, 1, 1 );
   { Apply Adaptive Contrast Enhancement }
   LEADImage1.AdaptiveContrast(9, 200, ACE_LIN);
end;