Obrócone napisy w RichEdit

Mam pytanie: czy w RichEdit można zrobić napis obrócony o 90 stopni?

Nie wiem, czy to Ci się przyda, ale może pomóc:

Jeżeli chcesz uatrakcyjnić wygląd swojej aplikacji, możesz zmienić nieco charakter pisma :-). Jeżeli zaczniesz na przykład pisać z góry do dołu (a nie z lewej do prawej) Twoi użytkownicy będą na pewno zaskoczeni. W Windows możesz pisać pod dowolnym kątem. Możesz do tego użyć tej oto prostej procedury:

procedure Pisz(Cv : TCanvas; Napis : String; X,Y,Angle : integer);
var LogFont : TLogFont;
begin
GetObject(Cv.Font.Handle, SizeOf(TLogFont), @LogFont);
LogFont.lfEscapement := Angle*10;
Cv.Font.Handle := CreateFontIndirect(LogFont);
Cv.TextOut(X,Y,Napis);
end;

Używasz tego podając Canvas, tekst do wypisania, położenie tego tekstu i kąt pisania w dziesiętnych częściach stopni. Warto jeszcze ustawić czcionke na TrueType (tylko one mogą pisać pod kątem).

Dzięki, znam to, ale w RichEdit raczej nie da rady...
A przy okazji może mnie ktoś oświeci jak działa ustawianie odstępu między wierszami które gdzieś znalazłem, podstawiam różne lineSpacing i coś bez zmian

uses RichEdit;

procedure RE_SetLineSpacing(ARichEdit: TRichEdit;lineSpacing: Byte);
var
pf2: ParaFormat2;
begin
FillChar(pf2, SizeOf(pf2), 0);
pf2.cbSize := SizeOf(PARAFORMAT2);
pf2.dwMask := PFM_LINESPACING;
pf2.bLineSpacingRule := lineSpacing;
SendMessage(ARichEdit.Handle, EM_SETPARAFORMAT, 0, Longint(@pf2));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RE_SetLineSpacing(RichEdit1,1);
end;