Как из RXRichEdit сохранить в 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

аренда квартир

---