Text vertikal zeichnen

[Tpercon]

Sign ist einfach ein Array.
Was wohl interessanter sein dürfte:

Delphi-Quellcode:

    tf: TFont;
    lf: TLogFont;