glGetIntegerv(GL_VIEWPORT,@Viewport);

          glGetDoublev(GL_MODELVIEW_MATRIX,@MVmatrix);

          glGetDoublev(GL_PROJECTION_MATRIX, @Projmatrix);

         //viewport[3] - высота окна в пикселях, редбук стр. 100-101

         //у нас задана квадратная область вывода (не окна!), ширина = высота, можно написать ClientWidth

          realY:= ClientWidth - Y - 561;

         // realY:= Viewport[3] - Y - 561;

          Caption:= 'X = '+ IntToStr(X)+ ' Y = '+IntToStr(realY);

          if gluUnProject(X, realY,0.0,@MVmatrix,@Projmatrix,@viewport,wX,wY,wZ) = GL_TRUE then

          begin

             pX:= -cX*Un+StartLon+wX*Un;   //координаты в м

             pY:= -cY*Un+StartLat+wY*Un;

             dX:= -(wX+cX);

             dY:= -(wY+cY);

             glTranslate(dX,dY,0);    //двигаем

             cX:= cX+dX;

             cY:= cY+dY;

          end;