Afficher un texte incliné à 45 degrés avec GDI (CreateFontIndirect)

procedure TForm1.FormPaint(Sender: TObject);
var
  LFnt: TLogFont;
  Fnt: TFont;
  ATitle: String;
  CW, CH: Integer;
  CoSinus_45: single;
begin
  with Form1.Canvas do
  begin
    MoveTo(ClientWidth div 2, 0);
    LineTo(ClientWidth div 2, ClientHeight);
    MoveTo(0, ClientHeight div 2);
    LineTo(ClientWidth, ClientHeight div 2);
    Font.Size := 30;

    Fnt := TFont.Create;
    try
      Fnt.Assign(Font);
      GetObject(Fnt.Handle, SizeOf(LFnt), @LFnt);

      LFnt.lfEscapement := 45 * 10;
      LFnt.lfOrientation := LFnt.lfEscapement;

      SetBkMode(Handle, TRANSPARENT);
      Fnt.Handle := CreateFontIndirect(LFnt);
      Font.Assign(Fnt);
    finally
      Fnt.Free;
    end;

    ATitle := 'RAD Studio 12.2';
    CW := TextWidth(ATitle);
    CH := TextHeight(ATitle);

    CoSinus_45 := Sqrt(2) / 2;
    TextOut((ClientWidth - Trunc((CW + CH) * CoSinus_45)) div 2,
      (ClientHeight - Trunc((CH - CW) * CoSinus_45)) div 2, ATitle);
  end;
end;