procedure TForm1.FormShow(Sender: TObject);
begin
 //load images
 ImageEnVect1.Zoom:=20;
 ImageEnVect1.IO.LoadFromFile('C:\15052149 ely\IMG_8738 copy.jpg');

 //add square object around image
 ImageEnVect1.AddNewObject(iekBOX, Rect( 0, 0 ,ImageEnVect1.Bitmap.Width,ImageEnVect1.Bitmap.Height;), clred);


end;



procedure TForm1.Zoom(Sender: TObject);
begin
  ImageEnVect1.CurrentLayer.Bitmap.Resample(ImageEnVect1.CurrentLayer.Bitmap.Width+10, -1, rfTriangle, True);

 ImageEnVect1.Update;
end;