ColorIntensityBalance example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   { Load the bitmap, keeping the bits per pixel of the file }
   LEADImage1.Load ('image3.cmp', 0, 1, 1 );
   { Balance the colors by increasing the red channel values }
   LEADImage1.ColorIntensityBalance(60, 0, 0, 40, 0, 0, 70, 0, 0, FALSE);
end;