SaveDialog Filename kleinste freie Nummer

[draxion]

ich bin dabei ein Programm zu schreiben, das Labyrinthe erstellt.
Diese sollen später gespeichert und wieder geladen werden können.
Beim Speichern habe ich nun folgendes Problem:

Die Labyrinthe sollen mit einem SaveDialog in eine txt-Datei gespeichert werden.
Ich möchte jetzt, dass ein Dateiname vorgeschlagen wird, der von den anderen Dateinamen (in dem Ordner) abhängt!
Bsp: Wenn es in dem Ordner schon die Dateien "Labyrinth_1.txt","Labyrinth_2.txt" und "Labyrinth_3.txt" gibt, soll er den Dateinamen "Labyrinth_4" vorschlagen. (Also "Labyrinth_" und dann die kleinste freie Nummer.)

Mein script für diesen Vorgang sieht so aus:

Delphi-Quellcode:

  fertig := false;
  i := 1;
  while not fertig do begin
    if FileExists('save_files\Labyrinth_'+IntToStr(i)+'.txt') then begin
      inc(i);
    end else begin
      SaveDialog1.FileName := 'Labyrinth_'+IntToStr(i)+'.txt';
      SaveDialog1.Execute;
      Memo1.Lines.SaveToFile(SaveDialog1.FileName);
      fertig := true;
    end;
  end;

Wenn man das erste mal auf speichern klickt, passiert genau das richtige, aber beim zweiten (und dritten,...) mal schlägt er IMMER den Namen "Labyrinth_1" vor !!
Was mache ich falsch ?

MFG mathis

[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]