Überschreiben

[loirad]

Hallo liebe Delphi-PRAXIS'ler,

ich habe mal wieder ein Problem:
Ich möchte für ein Spiel eine Highscoreliste erstellen.
Die Tabelle mit Rang, Name, Punkte ist eine Stringgrid.
Nun impotiere ich bei der OnCreate-Anweisung die Werte aus einer .csv-Datei.
Wenn ich das dann speichere bekomme ich eine Fehlermeldung, dass die Datei nicht erstellt werden kann.
Ich denke, dass das daran liegt, dass ich die Datei ja geöffnet habe.
Wie kann ich die Fehlermeldung umgehen und es richtig speichern?
Hier der wichtige Teil des Quelltextes:
Öffnen:
Variablen: i:integer;
sl: TStringList;
zeilennr: integer;
DateiName, S: String;
F: TextFile;

Code:

for i:=1 to 10 do stringgrid1.Cells[0,i]:=inttostr(i);
   DateiName :='Bestenliste.csv';
   sl:=TStringList.Create;
   sl.Delimiter := ',';
   try
      AssignFile(F,'Bestenliste.csv');
      Reset(F);
      zeilennr:=0;
      While not Eof(F) do
      begin
         Readln(F, S);
          sl.DelimitedText := s;
          Stringgrid1.Rows[zeilennr] := sl;
          inc(zeilennr);
      end;
   finally
      sl.free;
   end;

Speichern:
Variablen: iRow: integer;
sl: TStringList;

Code:

  sl := TStringList.Create;
  for iRow := 0 to StringGrid1.RowCount - 1 do
    sl.Add(StringGrid1.Rows[iRow].CommaText);
  sl.SaveToFile(ExtractFilePath(Application.ExeName)+'Bestenliste.csv');
  sl.Free;

Danke für gegebene Antworten
Liebe Grüße
loirad