Vielleicht liegt ein grundsätzliches Missverständnis vor?
Du kannst eine Komponente (z.B. ein Memo oder halt auch Deine) nicht einfach drehen.
Du kannst eine Komponente nur sehr hoch und schmal oder sehr breit und flach zeichnen und den Inhalt anpassen. Somit dreht sie sich optisch, tatsächlich ändert sie aber nur die höhe und Breite und zeichnet den Inhalt neu.
Dann kannst Du so etwas machen wie
Delphi-Quellcode:
if Height >= Width then
RahmenImHochformatZeichnen
else
RahmenImQuerformatZeichnen;
Hilf das irgendwie?