Label na vertical

procedure TForm1.Button1Click(Sender: TObject);
var
lf : TLogFont;
tf : TFont;
begin
Form1.Canvas.Font.Name := ´Arial´;
Form1.Canvas.Font.Size := 24;
tf := TFont.Create;
tf.Assign(Form1.Canvas.Font);
GetObject(tf.Handle, sizeof(lf), @lf);
lf.lfEscapement :=900; //inclinação
tf.Handle :=CreateFontIndirect(lf);
Form1.Canvas.Font.Assign(tf);
tf.Free;
Form1.Canvas.TextOut(100,300, label1.caption); //posição
end;
end.

Divirta-se;