ImageEnView1.ClearAll();
  ImageEnView1.Blank();
  ImageEnView1.IO.LoadFromFile( 'D:\im.jpg' );
  ImageEnView1.MouseInteractGeneral := [miSelect];

    with ImageEnView do begin
      LayersAdd( ielkShape,600, 600, 300, 300 );
      TIEShapeLayer(CurrentLayer).Shape := iesRoundRect;
      with CurrentLayer do begin
        BorderColor  := clBlack;
        BorderWidth  := 2;
        FillColor    := $00F0F0F0; //clBlack;
        FillColor2   := clWhite;
        FillGradient := gpgDiagCenter2; //gpgVertical;
        Opacity := 0.2;
        Cropped := true;
      end;
      Soft_Shadow(CurrentLayer,40);
    end;

    with IEV_Load do begin
      LayersAdd( ielkImage,500, 500, 250, 2500 );
      IO.LoadFromFileAuto(ImageEnMView.SelectedFilename);
      with CurrentLayer do begin
        BorderColor := clBlack;
        BorderWidth := 0;
        Cropped := true;
      end;
      Soft_Shadow(CurrentLayer,40);
      Update();
    end;

procedure Soft_Shadow(o_pCL:TIELayer;n_pR:Integer);
begin
  with o_pCL.SoftShadow do begin
    Enabled := True;
    OffsetX := 0;
    OffsetY := 0;
    ShadowColor := TColor2TRGB( clWhite );
    Radius  := n_pR;
  end;
end;