anchor.diff:      end;
     end;
   
  -  P:= FImage.ClientToScreen(Point(X, Y));
  -  P:= Self.ScreenToClient(P);
  +  P.X:= X+FImage.Left;
  +  P.Y:= Y+FImage.Top;
     Self.MouseDown(Button, Shift, P.X, P.Y);
   end;
   
  
positive.code:     Screen.Cursor:= crDefault;
    end;
  
    P:= FImage.ClientToScreen(Point(X, Y));
    P:= Self.ScreenToClient(P);
    Self.MouseUp(Button, Shift, P.X, P.Y);
  end;
  
  
negative.code:     DoScroll;
    end;
  
    P.X:= X+FImage.Left;
    P.Y:= Y+FImage.Top;
    Self.MouseMove(Shift, P.X, P.Y);
  end;
  
  