procedure TForm1.CreateBorderedImage;
var
  iOrigWidth: integer;
  iOrigHeight: integer;
begin
  ImageEnView2.Clear;
  ImageEnView2.Assign(ImageEnView1);
  iOrigWidth := ImageEnView1.IEBitmap.Width;
  iOrigHeight := ImageEnView1.IEBitmap.Height;
  // set background color
  ImageEnView2.BackGround := BorderColor1.EditValue;
  ImageEnView2.RemoveAlphaChannel();
  // Symmetric
  ImageEnView2.Proc.ImageResize(iOrigWidth + BorderWidth1.EditValue * 2, iOrigHeight +
    BorderWidth1.EditValue * 2, iehCenter,
    ievCenter);
  if AddShadow1.Checked then
    ImageEnView2.Proc.AddSoftShadow(BorderWidth1.EditValue, 5, 5, true, clblack, 100);
  // restore background color
  ImageEnView2.Background := clBtnFace;
  ImageEnView2.Update;
end;

procedure TForm1.OpenFrame1Click(Sender: TObject);
var
  iFilename: string;
  iWidth: integer;
  iHeight: integer;
  iLayer: integer;
begin
  iWidth := ImageEnView1.Bitmap.Width;
  iHeight := ImageEnView1.Bitmap.Height;
  iLayer := ImageEnView1.LayersAdd;
  OpenPictureDialog1.Filter := Graphics.GraphicFilter(TGraphic);
  if OpenPictureDialog1.Execute then
  begin
    iFilename := OpenPictureDialog1.FileName;
    ImageEnView1.Layers[0].PosX := 0;
    ImageEnView1.Layers[0].PosY := 0;
    ImageEnView1.Layers[iLayer].PosX := -40;
    ImageEnView1.Layers[iLayer].PosY := - 232;
    ImageEnView1.Layers[iLayer].Width := iWidth + 80;
    ImageEnView1.Layers[iLayer].Height := iHeight + 276;
    ImageEnView1.IO.LoadFromFile(iFilename);
    ImageEnView1.Zoom := 100;
  end;
end;