Виведення тексту під кутом на канві

Для того, щоб надпис можливо було повернути, необхідно, щоб він був написаний векторним шрифтом. 

Синтаксис зміни шрифта канви наступний:

Font.Name:='Book Old Style';

Для самого повертання шрифта необхідно:

var
LogFont : TLogFont;

...
GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);

{тут необхідно ввести кількість градусів, на які необхідно повернтуи текст, помножену на 10 - наведене значення для повороту на 90 градусів}
LogFont.lfEscapement := 900; 
Canvas.Font.Handle := CreateFontIndirect(LogFont);
  Canvas.TextOut(300, 300, 'Rotated text');