Как текст на кнопке расположить под заданным углом

Code:

var

LogFont: TLogFont;

begin

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

{Вывести текст 1/10 градуса против часовой стрелки}

LogFont.lfEscapement := Angle * 10;

Canvas.Font.Handle := CreateFontIndirect(LogFont);

end;