[san-46]

lmikle имел ввиду сохранение текста из Lines через цикл.
Тогда строки "вытаскиваются" без форматирования. И переделки компонента не требуется.

Код:

for I := 0 to RichEd.Lines.Count-1 do
  Writeln(F, RichEd.Lines[i]);