procedure TForm1.BtnAddLayerClick(Sender: TObject);
var
 id: Integer;
begin
 id := imageEnView1.LayersAdd;
 //ImageEnView1.LayersRotationAntialias          := True;
 //ImageEnView1.LayersRotationFilter             := ierBilinear;
 //ImageEnView1.LayersRotationUseFilterOnPreview := True;
 //ImageEnView1.Layers[ id ].UseResampleFilter   := True;
 //ImageEnView1.Layers[ id ].ResampleFilter      := rfLanczos3;

 with ImageEnView1.IO do
  LoadFromFile( ExecuteOpenDialog( ) );
end;

procedure TForm1.btnLoadPictureClick(Sender: TObject);
begin
 with ImageEnView1.IO do
  LoadFromFile( ExecuteOpenDialog( ) );
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 case RadioGroup1.ItemIndex of
  0:
   begin
    ImageEnView1.MouseInteract := [];
   end;

  1:
   begin
    ImageEnView1.MouseInteract := [ miMoveLayers, miRotateLayers ];
   end;

 end;
end;