Надпись по диагонали окна.

[kira_truelove]

Здравствуйте, загвоздка в вычислении угла диагонали масштабируемого окна. Нужно чтобы надпись всегда была по-диагонали окна. Пробовала реализовать так:

myFont.lfEscapement:=trunc((1800*sin((ramka.bottom-ramka.top)/(ramka.right-ramka.left)))/3.14);

Но тогда если окно в ширину много меньше чем в длину надпись начинает крутиться и "заворачиваться" вниз. Не знаю как исправить.
p.s. если необходимо, могу приложить весь код программы.