1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  sl: TStrings;
begin
  sl := TStringList.Create; //StringList erstellen
  try
    //Zeilen hinzufügen
    sl.Add('Dein Text');
    sl.Add('Zweite Zeile');

    sl.SaveToFile('C:\test.txt');  //Datei speichern
  finally
    sl.Free; //Speicher freigeben
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

var
  t: Textfile;
begin
  AssignFile(t, Dateiname);
  Rewrite(t);
  WriteLn(t, 'Zeile 1');
  CloseFile(t);
end;					

1:
2:
3:
4:
5:
6:
7:
8:

var
  t: Textfile;
begin
  AssignFile(t, Dateiname);
  Append(t);
  WriteLn(t, 'Zeile 2');
  CloseFile(t);
end;