Speichern von TStringList - Problem

[Aurelius]

Hallo DP,ler

Ich hab ein Problem beim Speichern einer TStringList und schaff es zum Henker nicht das zu lösen.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var Strings : TStringList;
begin
  if FileExists('Highscore.txt') = false then
  begin
    Strings := TStringList.Create;
    Strings[0] := 'PC';
    Strings[1] := '0';
    Strings[2] := 'PC';
    Strings[3] := '0';
    Strings[4] := 'PC';
    Strings[5] := '0';
    Strings[6] := '';
    Strings.SaveToFile('Highscore.txt');
    Strings.Free;
  end;
end;

Wie man sieht soll die exe, wenn die benötigte Highscore.txt net da ist, diese mit Standardwerten selbst schreiben. Nur tut sich da nix... Und die Suche hat mir auch nicht geholfen.