Orientacion del texto

[senpiterno]

Hola amigos

Me gustaria saber si es posible utilizando el canvas de un objeto, escribir texto en forma vertical, pero no de esta forma:
t
e
x
t
o

sino, como si tomaramos un texto escrito en forma normal (horizontal) y lo levantaramos 90 grados hacia la izquierda. En VB logre hacerlo utilizando la API de win, pero ahora me gustaria hacerlo en delphi.

Gracias de antemano por cualquier ayuda.