Problem mit Code

[mOzZzI]

Aloha, und guten Morgen!!^^

kurze Frage ich habe mir hier einen Code zusammengebastelt, der alles macht
was ich ihm sage, aber nachdem er das gemacht hat, zeigt er das Prog nichtmehr an
Hier:

Delphi-Quellcode:

procedure TForm1.Neu1Click(Sender: TObject);
var ini: TiniFile;
begin
 if not OpenDialog1.Execute then //nix
 else
  begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Einstellungen\'+'config.dat');
   try
     with ini do
      begin
        WriteString('FILENAME', 'SpeedButton1', OpenDialog1.FileName);
      end;
   finally
    Free;
  end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ForceDirectories(ExtractFilePath(ParamStr(0))+'Einstellungen');
end;