RichEdit - Formatowanie do stringa.

Witam mam takie problem iż,

Gdy mam sformatowany tekst w richedit potrzebuje cały zapis wraz z formatowaniem zapisać do zmienntej typu string czyli zawartość

RE.Lines.SaveToFile('test.rtf');

Da się to zrobić bez zapisywania pliku na dysk a następnie ładowania jego zawartości do zmiennej string?

lintex.text czy .gettext zwraca nie sformatowany tekst :(

Masz coś takiego, jak SaveToStream. Niestety nie wiem dokładnie, jak tego używać, ale pewnie Ci sie przyda sama ta wskazówka już :)

Poradziłem sobie tak:

procedure TForm8.PngBitBtn2Click(Sender: TObject);
var
  StrStream: TStringStream;
  begin
    StrStream := TStringStream.Create('');
  try
    RE.Lines.SaveToStream(StrStream);    // Zapisujemy do strumienia
    memo1.Text := StrStream.DataString;  // Wyswiatlamy w memo1
    finally
    StrStream.Free;
  end;
end;