turn writing/de

uses
  Graphics, Windows, ...;
  
  ...
  
{Übergabeparameter:
  Canvas-Objekt
  X-Position
  Y-Position
  zu verwendender Winkel}
  
procedure subSchriftDrehen(C: TCanvas; wrdX, wrdY: word; intWinkel: integer;
  strText: WideString);
  
var
  LogRec: TLOGFONT;
  
begin
  try
    GetObject(C.Font.Handle, SizeOf(LogRec), Addr(LogRec));
    LogRec.lfEscapement := Trunc(intWinkel * 10);
    C.Font.Handle := CreateFontIndirect(LogRec);
    C.TextOut(wrdX, wrdY, strText);
  finally;
    DeleteObject(C.Font.Handle);
  end;
end;
  
  ...

  ...
subSchriftDrehen(Form1.Canvas, 30, 90, 40, 'Test');
  ...