ReWrite() findet kein File?

[TForm1]

Sonderzeichen hat der Pfad keine (außer Leerzeichen in Ordnernamen).

Zitat von Bjoerk:

Dann müßte man den Fehler weiter eingrenzen. Geht das?

Delphi-Quellcode:

function FileName: string;
begin
  Result := ExtractFilePath(ParamStr(0)) + 'SLTest.txt';
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.Add('DP');
    SL.SaveToFile(FileName);
    Button2.Enabled := true;
  finally
    SL.Free;
  end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile(FileName);
    ShowMessage(SL.Text);
  finally
    SL.Free;
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Button2.Enabled := false;
end;

Der Quelltext funktioniert bei mir ohne Probleme, ich denke am Pfad kann es nicht liegen, der Pfad hat sich ja, seitdem ich upgedatet habe, nicht verändert und vorher funktionierte es ja einwandfrei. Das Problem muss m.E. im Schreiben der typisierten Datei liegen.

[EDIT] Ich weiß jetzt woran es lag, und zwar waren meine Records noch leer bzw. noch keine Variablen darin, da ich das später machen wollte. Wenn ich testweise eine Variable deklariere, funktioniert es. Warum macht es beim Schreiben der Datei etwas aus, wenn der Record noch keine Daten enthält? Im Grunde genommen ist das File beim Erstellen ja auch leer, oder?