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

Дата: 01.01.2007
Автор: Vit

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;