Depending on zoomlevel change the latitude and longitude so that the mouse pointer is outside the rectangle.
dragRectangle.SouthWest.Latitude := AEventData.Coordinate.Latitude+0.2;
dragRectangle.NorthEast.Longitude := AEventData.Coordinate.Longitude-0.2;