Определение угла курсора образованным с Timage (delphi)

[_PROGRAMM_]

Добрый вечер форумчане. Возник такой "Ненужный" вопрос. Как определить угол, который образовывает курсор с определенной линией. Вершиной угла является TImage? Определенная линия всегда параллельна с боком и стороной формы. Я с таким еще не сталкивался, поэтому словами, возможно, объясняю неправильно, поэтому выкладываю скриншот. На нем Красным квадратом изображен TImage, Красный эллипс это курсор(так как мышь на скрин не попала). Голубая линия это линия, к которой ведется зеленый отрезок, составляют его мышь и вершина Timage. При всем этом положение Image не известно.
Подскажите, как это сделать, а именно - узнать угол. Если это возможно. Собственно, точно градус угла мне не нужен, по положению мыши предполагается вращение TImage.
Заранее преогромное спасибо.

[_PROGRAMM_]

Может, есть какой-нибудь другой способ узнать положение курсора, относительно Timage? Нужно, чтобы при вращении мышки вокруг Timage, я знал примерно, какую картинку надо подставить в Picture.LoadFromFile(), чтобы она "смотрела" на указатель.

[evg_m]

При всем этом положение Image не известно.

по положению мыши предполагается вращение TImage.

сначала придется узнать какой Image нам нужен.
и видимо придется делать это по положению курсора.(или по траектории его изменения за последнее время).

[_PROGRAMM_]

сначала придется узнать какой Image нам нужен.

Как именно? Timage известен (я даже на скрине его в красный цвет обвел). Он будет менять свое положение.
Под

При всем этом положение Image не известно.

я имел в виду то, что объект не стоит на месте. Поэтому я думаю, что делать это по его траектории невозможно, хотя может, Вы знаете как?

[evg_m]

что объект не стоит на месте.

тем не менее в любой отдельно взятый момент времени его положение строго определено. координаты и углы рассчитываются НА ЗАДАННЫЙ(текущий) момент времени.

какую картинку надо подставить в Picture.LoadFromFile()

А зто зачем (зачем то и дело дергать картинку из файла) разве у нас там уже нет нужной картинки.

[_PROGRAMM_]

А зто зачем (зачем то и дело дергать картинку из файла) разве у нас там уже нет нужной картинки.

Я пока не занимался вращением Timage. Подумаю над этим

координаты и углы рассчитываются НА ЗАДАННЫЙ(текущий) момент времени.

Меня интересует каким образом? Есть какая-то формула или еще что-нибудь? Мне никак не приходят мысли как именно узнать этот угол.

P.S. Спасибо, что помогаете

__ Add

Эврика. Может сделать виртуальный квадрат центром которого является Timage? Сторона квадрата устанавливается так, что в данный момент мышка на ходится на ней. Если указатель показывает на угол квадрата - 45 градусов, если на сторону, то делим половину стороны на 45 и узнаем сколько этих частей. Получившееся число будет градусной мерой.
Как думаете не затормозит ли от этого приложение? Думаю делать в OnMouseOver.

[evg_m]

Есть какая-то формула или еще что-нибудь? Мне никак не приходят мысли как именно узнать этот угол.
Прямоугольный треугольник. (рис1)
линия курсор - Image это гипотенуза. координаты есть значит есть длина(теорема Пифагора. 7 или 8 класс)
голубая горизонталь это катет длина разность координат по оси X).
угол прилегающий к катету = ARCCOS( катет / гипотенуза )

[_PROGRAMM_]

угол прилегающий к катету = ARCCOS( катет / гипотенуза )

Получается Таблицу Брадиса переписывать? Не всю конечно, а часть.

линия курсор - Image это гипотенуза. координаты есть значит есть длина

А если получится иррациональное?

Спасибо огромное.

[_PROGRAMM_]

BC-гипотенуза
Угол A 90градусов.
далее квадрат(вторую степень) буду обозначать "(2)"
AB(2) + BC(2) = BC(2)
BC(2)= может равнятся иррациональному числу. Прийдется свою функцию писать.

Еще раз Спасибо

-add
все. решил воспользуюсь функцией hypot