uses IniFiles; 
 
procedure schreiben(re: TRichedit; sektion, idt, datei: string); 
var 
  ini: TInifile; 
  ss: TStringStream; 
  s: string; 
begin 
  ss := TStringStream.create(s); 
  re.lines.savetostream(ss); 
  setlength(s, ss.size); 
  ss.seek(0, sofrombeginning); 
  s := ss.readstring(ss.size); 
  s := stringreplace(s, #13#10, #127, [rfreplaceall]); 
  ini := TInifile.create(datei); 
  ini.writestring(sektion, idt, s); 
  ini.free; 
  ss.free; 
end; 
 
procedure lesen(re: TRichedit; sektion, idt, datei: string); 
var 
  ini: TInifile; 
  ss: TStringStream; 
  s: string; 
begin 
  ini := TInifile.create(datei); 
  s := ini.readstring(sektion, idt, 'FEHLER'); 
  ini.free; 
  s := stringreplace(s, #127, #13#10, [rfreplaceall]); 
  re.clear; 
  ss := TStringStream.create(s); 
  re.lines.loadfromstream(ss); 
  ss.free; 
end; 
 
const 
  datei = 'c:\test.ini'; 
  sektion = 'Richedit'; 
  idt = 'Inhalt'; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  schreiben(richedit1, sektion, idt, datei); 
end; 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  lesen(richedit1, sektion, idt, datei); 
end;