아마도 제 글을 보신것 같은데, 프린트 관련 글이였습니다.
프린트 / 이미지의 Canvas에서는 되겠지만
컴포넌트를 폼에 올리는 상황에선 Font.Orientation이 안 먹을 겁니다....

안녕하세요

아래코드로 테스트 해보십시요.  엄밀히 말하면 Label의
폰트를 회전시키는 것입니다.

<!--CodeS-->
procedure TForm1.TextOutAngle(x,y,aAngle,aSize: integer; txt: string);
var hFont, Fontold: integer;
    DC: hdc;
    Fontname: string;
begin
  if length(txt)= 0 then
    EXIT;
  DC:= Label1.Canvas.Handle;
  SetBkMode(DC, transparent);
  Fontname:= Label1.Canvas.Font.Name;
  hFont:= CreateFont(-aSize,0, aAngle*10,0, fw_normal,0, 0,
                     0,1,4,$10,2,4,PChar(Fontname));
  Fontold:= SelectObject(DC, hFont);
  TextOut(DC,x,y,PChar(txt), length(txt));
  SelectObject(DC, Fontold);
  DeleteObject(hFont);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   //라벨의 width=17, Height=51로, Autosize는 False로 테스트 하십시요.
   Label1.Caption := '';
   TextOutAngle(5,50, 90, 9, '테스트');  
end;
<!--CodeE-->
이 코드는 Label 내부의 X좌표=5, y좌표=50에 90도회전하여, 폰트크기=9를 돌려서
찍는 코드입니다.

좋은 하루 되십시요.