procedure TForm1.MagnifyLayer1Click(Sender: TObject);
var
  iIEMagnifyStyle: TIEMagnifyStyle;
  iMagnifyLayer: Integer;
begin
  iIEMagnifyStyle := iemEllipse;
  with ImageEnVect1 do
  begin
    MouseInteract := MouseInteract + [miMoveLayers, miResizeLayers];
    iMagnifyLayer := LayersAdd;
    LayersCurrent := iMagnifyLayer;
    Layers[iMagnifyLayer].Name := 'Magnifier';
    Layers[iMagnifyLayer].Width := 100;
    Layers[iMagnifyLayer].Height := 100;
    Layers[iMagnifyLayer].PosX := 0;
    Layers[iMagnifyLayer].PosY := 0;
    Layers[iMagnifyLayer].Magnify.Rate := 2;
    Layers[iMagnifyLayer].VisibleBox := True;
    Layers[iMagnifyLayer].DrawOuter := True;
    Layers[iMagnifyLayer].Magnify.Style := iIEMagnifyStyle;
    Layers[iMagnifyLayer].Magnify.Enabled := True;
    Update;
  end;
end;