procedure TForm1.Watermark1Click(Sender: TObject);
var
  iLayer: integer;
  sHeight, sWidth:integer;

begin

  if OpenPictureDialog1.Execute then
  begin
    //first logo
    iLayer := ImageEnView1.LayersAdd(ielkImage);
    ImageEnView1.IO.LoadFromFile(OpenPictureDialog1.FileName);
    sWidth := ImageEnView1.Layers[ilayer].Width div 10;
    sHeight := ImageEnView1.Layers[ilayer].Height div 10;
    // center logo position
    ImageEnView1.Proc.Resample(sWidth, sHeight, rfLanczos3, True);
    ImageEnView1.Layers[ilayer].PosX := IELayer_Pos_HCenter;
    ImageEnView1.Layers[ilayer].PosY := IELayer_Pos_VCenter;
    ImageEnView1.Layers[ilayer].Transparency := 40; // (0-255)


     //second logo
    iLayer := ImageEnView1.LayersAdd(ielkImage);
    ImageEnView1.IO.LoadFromFile(OpenPictureDialog1.FileName);
    // change position logo
    ImageEnView1.Proc.Resample(sWidth, sHeight, rfLanczos3, True);
    ImageEnView1.Layers[ilayer].PosX := IELayer_Pos_HCenter ;
    ImageEnView1.Layers[ilayer].PosY := IELayer_Pos_VCenter div 3;
    ImageEnView1.Layers[ilayer].Transparency := 40; // (0-255)
    ImageEnView1.LayersMergeall;

    ImageEnView1.Update;

  end;
end;

procedure TForm1.WaterMark1Click(Sender: TObject);
var
  iLayer: integer;
  sHeight, sWidth: integer;
begin
  if OpenPictureDialog1.Execute then
  begin
    // first logo
    iLayer := ImageEnView1.LayersAdd(ielkImage);
    ImageEnView1.LayersCurrent := iLayer;
    ImageEnView1.IO.LoadFromFile(OpenPictureDialog1.FileName);
    sWidth := ImageEnView1.Layers[iLayer].Width;
    sHeight := ImageEnView1.Layers[iLayer].Height;
    // center logo position
    ImageEnView1.Proc.Resample(sWidth, sHeight, rfLanczos3, True);
    ImageEnView1.Layers[iLayer].PosX := IELayer_Pos_HCenter;
    ImageEnView1.Layers[iLayer].PosY := IELayer_Pos_VCenter;
    ImageEnView1.Layers[iLayer].Transparency := 40; // (0-255)
    // second logo
    iLayer := ImageEnView1.LayersAdd(ielkImage);
    ImageEnView1.LayersCurrent := iLayer;
    ImageEnView1.IO.LoadFromFile(OpenPictureDialog1.FileName);
    // change position logo
    ImageEnView1.Proc.Resample(sWidth, sHeight, rfLanczos3, True);
    ImageEnView1.Layers[iLayer].PosX := IELayer_Pos_HCenter;
    ImageEnView1.Layers[iLayer].PosY := IELayer_Pos_VCenter;
    {ImageEnView1.Layers[ilayer].PosY := IELayer_Pos_VCenter div 3; INCORRECT}
    ImageEnView1.Layers[iLayer].PosY := ImageEnView1.Layers[iLayer].PosY div 3;
    ImageEnView1.Layers[iLayer].Transparency := 40; // (0-255)
    ImageEnView1.LayersMergeAll(True);
    ImageEnView1.Update;
  end;
end;