Kopiowanie tekstu do RichEdit

Mam bazkę w które jest pole typu FormatedMemo i chciałbym wstawić jego zawartość do kontrolki RichEdit oczywiście zachowując formatowanie.

Może ktoś ma jakiś fany pomysł ?

Wyszło mi za pomocą pomocniczego DBRichEdit-a i Schowka czyli:
RichPom.SelectAll;
RichPom.CopyToClipboard;
Dokument.PasteFromClipboard;
Ale to słaby pomysł.

Może ktoś lepszy wymyśli ?

Załadowanie z bazy do strumienia typu TBLOBStream, a następnie odczytanie zawartości RichEdit'a ze strumienia.

Bloba-a próbowałem.
Tylko zaciąłem się na tym, że jak robię

Dokument.Lines.LoadFromStream(S);

to mi wszystko czyści a chciałbym aby dopisało na końcu.

To może załaduj do pomocniczego obiektu klasy TStringList, a następnie dodaj ten obiekt do RichEdita - poprzed RichEdit.Lines.AddLines()

To działa, ale niestety ginie formatowanie ;(