[XXXX Pro]

Обычными средствами Delphi (во всяком случае Delphi 3) это вроде бы нельзя. Но можно сделать так:
Создай шрифт с помощью API-функции CreateFont, указав в orientation 900 (угол поворота в десятых долях градусов), а затем затем присвой полученный handle шрифту в Canvas.
Получится примерно вот что:
YourFont:=CreateFont(......);
Form1.Canvas.Font.Handle:=YourFont;