Datei nummeriert speichern

[Dragon27]

hi, danke für die lange Erklärung nett von dir!

Eine Frage bleibt noch offen wie mache ich es dass er immer bei der Nummerierung mit 0 anfängt (dass ist ganz wichtig)!
hab da das schon so probiert:

Delphi-Quellcode:

Var
  flStrList                             : TStringList;
  DeinFileName                          : String;
  Zahl                                  : Integer;
Begin
  If Not form1.Savedialog1.Execute Then Exit;
  DeinFileName := form1.Savedialog1.FileName;

  flStrList := TStringList.Create;

  Try
    flStrList.Assign(form1.SynMemo1.Lines);
    Zahl := -1;
    While zahl < pred(flStrList.Count) Do
    Begin
      inc(Zahl);
      flStrList[Zahl] :=
        IntToStr(succ(Zahl)) +
        DupeString(#32, 7 - Length(IntToStr(succ(Zahl)))) +
        flStrList[Zahl];


    End;
    flStrList.SaveToFile(DeinFileName);
  Finally
    FreeAndNil(flStrList);
  End;

aber er fängt trotzdem bei 1 an. Warum?

Danke