Datei beim Programmstart erstellen lassen

[Wolverine]

Hallo,

nun steh ich schon wieder vor einem Problem, aber wahrscheinlich nur weil ich den Wald vor lauter Bäumen nicht seh
Ich habe es geschafft, die Datei erstellen zu lassen. Wenn das Programm beendet kommt ne Abfrage ob die Datei beibehalten werden soll oder nicht. Das funktioniert alles wunderbar.

Nun zu meinem Prob:
- Wenn ich das Programm starte, die Datei erstellt wird und ich eine Seite aufrufe wird diese in der Datei gespeichert.
- Gebe ich nun eine andere Seite ein um die aufzurufen bricht das Programm mit einer Fehlermeldung und einem Verweis auf die "Writeln" Zeile ab.

Hoffentlich könnt ihr mir helfen. Ich werde auch noch etwas Code uppen um euch die Suche zu erleichtern.

Danke schon mal im voraus.

edit ---> Hier der Code:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
OleContainer1.CreateObject('Shell.Explorer', False);
if FileExists('Temp.eab') then
 begin
  ShowMessage('Temporärer Verlauf aus Temp.eab geladen.');
  tempon:=1;
 end
else
 begin
  //Datei definieren und Erstellen
  AssignFile(F, 'Temp.eab');
  {$IOCHECKS OFF}
  ReWrite(F);
  {$IOCHECKS ON}
  if IOResult = 0 then
   begin
    Ueberschrift := 'Temporärer Verlauf';
    Writeln(F, Ueberschrift);
   end
  else
   begin
    ShowMessage ('Datei konnte nicht Erstellt werden');
   end
 end
end;

.......

procedure TForm1.Button1Click(Sender: TObject);
begin
Writeln(F, ComboBox1.Text); //auf diese Zeile wird bei Programmabbruch verwiesen
CloseFile(F);
OleContainer1.OleObject.Navigate(ComboBox1.Text);
Reset(F);
end;