Преобразовать координаты курсора в картографическом окне в экранные координаты
function MapClientToScreen(const Point: TPoint): TPoint;
Point
экранные координаты курсора