procedure TForm1.Process1Click(Sender: TObject);
var
  i: integer;
  iLayer, sHeight, sWidth, cWidth, cHeight: Integer;
  iSource, iDest: TImageEnVect;
  iLogo: TImageEnView;
begin
  // if no photo loaded then show warning message and exit
  if ImageEnMView1.ImageCount = 0 then
  begin
    MessageDlg('A photo has not been loaded.  Select Open then try again.', mtWarning, [mbOK], 0);
    exit;
  end;
  Screen.Cursor := crHourGlass;
  try
    // Speed up the conversion by getting the logo before processing
    iLogo := TImageEnView.Create(nil);
    try
      iLogo.IO.LoadFromFile(ApplicationFolder + 'brazil.png'); // load the logo
      iLogo.EnableAlphaChannel := True;
      iLogo.IO.Params.BMP_HandleTransparency := True;
      // the logo is 32-bit with a black background so set the transparent color baised on the
      // bottom left pixel
      iLogo.Proc.SetTransparentColors(iLogo.IEBitmap.Pixels[0,
        iLogo.IEBitmap.Height - 1],
          iLogo.IEBitmap.Pixels[0,
        iLogo.IEBitmap.Height - 1], 0);
      for i := 0 to ImageEnMView1.ImageCount - 1 do
      begin
        iSource := TImageEnVect.Create(nil);
        try
          iDest := TImageEnVect.Create(nil);
          try
            // acquire through the thumbnail image
            iSource.IEBitmap.AssignImage(ImageEnMView1.GetTIEBitmap(i));
            iLayer := iSource.LayersAdd; // add a layer
            // adjust the size of the logo ...
            sWidth := iSource.Layers[0].Width div 10;
            sHeight := iSource.Layers[0].Height div 10;
            // resize the logo in proportion to the image
            iLogo.Proc.Resample(sWidth, sHeight, rfLanczos3, True);
            iSource.IO.Params.BMP_HandleTransparency := True;
            iSource.IEBitmap.Assign(iLogo.IEBitmap); // load the logo into the layer
            // support transparency
            // if bitmaps are used rather than png then handle bitmap transparency
            iSource.IO.Params.BMP_HandleTransparency := True;
            iSource.EnableAlphaChannel := True;
            // set the position of the layer
            cWidth := iSource.Layers[0].Width * 15 div 100;
            cHeight := iSource.Layers[0].Height * 10 div 100;
            iSource.Layers[iLayer].PosX := iSource.Layers[0].Width - cWidth;
            iSource.Layers[iLayer].PosY := cHeight;
            iSource.IO.Params.ImagingAnnot.CopyFromTImageEnVect(iSource);
            iSource.LayersDrawTo(iDest.IEBitmap); // combine the layers
            ImageEnMView1.SelectedImage := 0;
            ImageEnMView1.EnableAlphaChannel := True;
            ImageEnMView1.SetIEBitmap(i, iDest.IEBitmap);
            ImageEnVect1.Update;
          finally
            iDest.Free;
          end;
        finally
          iSource.Free;
        end;
      end;
      // show the first image
      ImageEnVect1.IEBitmap.Assign(ImageEnMView1.GetTIEBitmap(0));
      if Fit1.Checked then
        ImageEnVect1.Fit;
      ImageEnVect1.Update;
    finally
      iLogo.Free;
    end;
  finally
    Screen.Cursor := crDefault;
  end;
end;