Как текст из TRXRichEdit сохранить в RTF формате?

procedure TForm1.Button1Click(Sender: TObject);

 
  var t:TFileStream;
begin
  t:=TFileStream.create('c:\myfilename.txt', fmCreate or fmOpenWrite);
  t.Size:=0;
  RxRichEdit1.Lines.SaveToStream(t);
  t.free;
end;

Автор: Vit

Взято с Vingrad.ru https://forum.vingrad.ru