Datein durchnummeriert speichern

[darky95]

Hi Leute, hoffe ich bin hier jetzt richtig gelandet

Bin dabei eine kleine Auswertung zu Programmieren und will nun eingegebene Daten in txt's speichern! Für jeden Datensatz (Name, Vorname, Verein etc) soll eine extra txt erstellt werden! Und die sollen durchnummeriert sein (von 1 bis x)! Komme nur nicht auf den passenden ansatz!

Code:

procedure TForm2.btnHinzuClick(Sender: TObject);

var List:TStrings;
begin

  Teilnehmer.Name:=edtName.Text;
  Teilnehmer.Vorname:=edtVorname.Text;
  Teilnehmer.Verein:=edtVerein.Text;
  Teilnehmer.Ort:=edtOrt.Text;
  Teilnehmer.BK:=edtBK.Text;

  List:=TStringList.create;

  try
    List.Add(Teilnehmer.Name);
    List.Add(Teilnehmer.Vorname);
    List.Add(Teilnehmer.Verein);
    List.Add(Teilnehmer.Ort);
    List.Add(Teilnehmer.BK);


    if not DirectoryExists('C:/Turnierauswertung/Schuetzen/') then ForceDirectories('C:/Turnierauswertung/Schuetzen/');
    List.SaveToFile('C:/Turnierauswertung/Schuetzen/'+ {hier fehlt was!} +'.txt') ;
  finally
    List.Free;
  end;



  end;