[dr. F.I.N.]

Код:

procedure SaveToTXTandRTF(aRichEdit: TRichEdit; aFileName: String);
const
  MyExt: array [Boolean] of String = ('.txt', '.rtf');
var
  tmpRE: TRichEdit;
begin
  tmpRE := TRichEdit.Create(nil);
  tmpRE.Assign(aRichEdit);
  tmpRE.Lines.SaveToFile(ChangeFileExt(aFileName, MyExt[tmpRE.PlainText]));
  tmpRE.PlainText := not tmpRE.PlainText;
  tmpRE.Lines.SaveToFile(ChangeFileExt(aFileName, MyExt[tmpRE.PlainText]));
  tmpRE.Free;
end;