Multiply example for Delphi

procedure TForm1.MultiplyClick(Sender: TObject);
begin
   LEADImage1.Multiply( 151 );
end;