Savetofile(x.txt) aber alten inhalt behalten

[ichbins]

So schwer ist das doch garnicht:

Delphi-Quellcode:

var
  s:tstringlist;
  i:integer;
begin
  s:=tstringlist.create;
  s.loadfromfile(filename);
  for i:=0 to memo1.lines.count-1 do
    s.add(memo1.lines.strings[i]);
  s.savetofile(filename);
  s.free;