[yusnerqui]

Esto no lo he probado, pero puedes Probar algo como:

Código Delphi [-]
Var
 S : TFileStream;
begin
  s := TFileStream.Create('C:\lolo.rtf',fmCreate );
  Try
    RichEdit1.Lines.SaveToStream(S);
  finally
    S.Free;
  end;
end;

espero te sirva

Saludos