Schau Dir mal ganz genau das Beispiel an (der Link oben) und dann schau mal, was wohl bei Dir im Code fehlt. (Kleiner Tipp: RotateText).
Ansonsten wie gesagt: Einfach mal den Code kopieren und mit dem ausprobieren und rumspielen. Dadurch lernt man am meisten.
Deinen Code bitte ein [delphi][/delphi]-Tags einklammern.
Wie hast Du es denn ausprobiert, dass es Fehler gibt? Und vor allem: Welche Fehler?