Jak narysować tekst pod kątem

Posłuż się takim kodem:

procedure TForm1.Button1Click(Sender: TObject);
const
  Kat = 90;
var
  LF : TLogFont;
begin
  Canvas.Font.Size := 24;
  GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @lf);

  lf.lfEscapement := Kat * 10;
  lf.lfOutPrecision := OUT_TT_ONLY_PRECIS;

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

  SetGraphicsMode(Canvas.Handle, GM_ADVANCED);
  Canvas.Brush.Style := bsClear;

  Canvas.TextOut(20, 200, 'Hello World!');
end;