Надпись под углом

Следующая статья: Множественный выбор в ListBox.

Как вывести на Canvas надпись, расположенную под углом?

procedure MyRotateText(CV: TCanvas; sText: String; X, Y, Angle: Integer);
var Logfont:TLogFont;
begin
 GetObject(CV.Font.Handle, SizeOf(TLogFont), @LogFont);
LogFont.lfEscapement:=Angle * 10; CV.Font.Handle:=CreateFontIndirect(LogFont);
CV.TextOut(X, Y, sText);
end;