Zapisywanie sformatowanego textu do stringa...

Siemka, jak zapisać sformatowany text z richedita do stringa? Tzn. taki jak mają pliku *.rtf. Dzięx z góry.

Hmm - odpowiadałem już na to, ale post znikł - z nieznanego powodu..

function GetRTF(RE: TRichedit): string;
var
   strStream: TStringStream;
begin
   strStream := TStringStream.Create('') ;
   try
     RE.PlainText := False;
     RE.Lines.SaveToStream(strStream) ;
     Result := strStream.DataString;
   finally
     strStream.Free
   end;
end;

Dzięki wielkie. Mam ostatnie pytanie: jak z tej funkcji wyciągnąć ten string bo jak ja robie jak zwykle to mi coś się wali program. Dzięki jeszcze raz!

ehh .. no jak to jak wyciągnąć .. - toć masz napisane Result := ... ehh

Na przykład tak:

Memo1.Text := GetRTF(Richedit1);

Dokładnie tak mam napisane i program mi się zacina :/.