Wie kann ich eine Datei erstellen ohne Savedialog?

[NikoMitDaMacht]

Also ich habe so einen ich nenns mal "Trecord" so stehst eim Type :

Delphi-Quellcode:

type
  tDaten = record
           WinFolder: string[60];
           LastIp: string[60];
           soundpfad: string[60];
           sound: string[1];
           soundAn: string[1]
end;

...
  public
    { Public-Deklarationen }
    dateiname:string;
    datei: file of tDaten;
    daten: tDaten;
  end;

...

so ... und dann un das zu nutzen hab ich's so gemacht

Delphi-Quellcode:

procedure TFormConfig.ButtonNeueDateiClick(Sender: TObject);
begin
    if savedialog1.execute then
       begin
         if dateiname <> '' then closefile(datei);
         dateiname:=savedialogdatei.filename;
         assignfile(datei,dateiname);
         rewrite(datei);

         timer2.Enabled:=true ;

         buttonaenderungenspeichern.enabled:=true;

       end
end;


procedure TFormConfig.Timer2Timer(Sender: TObject);
begin
timer2.Enabled:=false;
  try
     reset(datei);
     seek(datei, filesize(datei));
     edit1.text:='';
     edit2.text:='';
     edit3.text:='';
     edit4.text:='';
    daten.winfolder:=edit1.text;
    daten.Lastip:=edit2.text;
    daten.soundpfad:=edit3.Text;
    daten.soundan:=edit4.Text;
    daten.sound:=editort.Text;
     write(datei,daten);
     edit1.setfocus
  except
     showmessage('Fehler: Zuerst Datei öffnen!')
  end
end;
// bitte nicht über die namen der strings wundern

so und jetzt will ich eigentlich nur dass das programm die datei eben automatisch erstellt