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

Как вывести на 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;