procedure TImagEnFrm.MagnifierGlassCreate(x,y:integer);
var
  P:TPoint;
begin
  p.x := x;
  p.y := y;
  P := ImageEnVect.ScreenToClient(p);
  ImageEnVect.LayersDrawBox := true;
  x := ImageEnVect.Layers[0].ConvXScr2Bmp ( p.X );
  y := ImageEnVect.Layers[0].ConvYScr2Bmp ( p.Y );
  if _MagnifyLayer = 0 then begin
    _MagnifyLayer := ImageEnVect.LayersCount;
    ImageEnVect.LayersAdd;
    ImageEnVect.Layers[_MagnifyLayer].Magnify.Rate := 
ApplicationSettings.ImageProcessing.ByName('ImageMagnifyZoom').Value;
    ImageEnVect.Layers[_MagnifyLayer].VisibleBox := true;
    ImageEnVect.Layers[_MagnifyLayer].Width := 
ApplicationSettings.ImageProcessing.ByName('ImageMagnifyWidth').Value;
    ImageEnVect.Layers[_MagnifyLayer].Height := 
ApplicationSettings.ImageProcessing.ByName('ImageMagnifyHeight').Value;
    ImageEnVect.Layers[_MagnifyLayer].Magnify.Enabled := true;
    ImageEnVect.Layers[_MagnifyLayer].Magnify.Style := iemRectangle;
    ImageEnVect.Layers[_MagnifyLayer].Magnify.Source := iemBackgroundLayer;
    ImageEnVect.Layers[_MagnifyLayer].drawOuter := false;
    ImageEnVect.Layers[_MagnifyLayer].VisibleBox := true;
  end;
  ImageEnVect.Layers[_MagnifyLayer].Posy := y ;
  ImageEnVect.Layers[_MagnifyLayer].Posx := x;
  ImageEnVect.MouseInteract := [miMoveLayers, miResizeLayers]; //now broken
 
  dxMagnifyZoom.Value := ImageEnVect.Layers[_MagnifyLayer].Magnify.Rate ;
  // show it
  ImageEnVect.Layers[_MagnifyLayer].Visible := True;
  ImageEnVect.LayersCurrent := 0;
  ImageEnVect.Update;
end;