[dec]

Hola,

Código Delphi [-]

begin  
  if SaveDialog1.Execute then begin
    RichEdit1.SaveToFile(SaveDialog1.FileName);
  end;
end;