Wie kann ich eine Datei erstellen ohne Savedialog?

[Nalincah]

Code:

var
  F : TextFile;
  s : String;
begin
  // Auswahl des Dateinamens
  if SaveDialog1.Execute then
  begin
    // Wenn die Datei nicht vorhanden ist
    if not FileExists(SaveDialog1.Filename) then
    begin
      // erstelle Datei
      if FileCreate(SaveDialog1.Filename) = -1 then
        ShowMessage('Fehler beim erstellen der Datei');
    end;
    // Weist "F" der Datei zu
    AssignFile(F,SaveDialog1.Filename);

    // Öffne "F" und setze Cursor ans Ende
    if FileSize(F) > 0 then
      Reset(F);

    // Liest erste Zeile der Datei, speichert den Wert in s und gibt s
    // anschließend als Message aus
    ReadLn(F, S);
    ShowMessage(s);

    // Schreibe eine Neue Linie
    Writeln(F, 'asda');

    // Schließe Datei;
    CloseFile(F);
  end;
end;

Ich krieg bei

Code:

// Öffne "F" und setze Cursor ans Ende 
if FileSize(F) > 0 then
  Reset(F);

immer nen E/A-Fehler 103 (Datei nicht geöffnet). Aber ich dachte AssignFile öffnet die Datei, oder??