ApplyMathLogic example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   { Load the bitmap, keeping the bits per pixel of the file }
   LEADImage1.Load ('image1.cmp', 0, 1, 1 );
   { Multiply the colors of the bitmap using a factor of 1.51 }
   LEADImage1.ApplyMathLogic(151, AML_OP_MUL + CHANNEL_MASTER + AML_VALUE_NOP + AML_RES_NOP);
end;