delphi 网页浏览器

其中的一些代码： procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin historyindex:=-1; historylist:=tstringlist.Create; speedbutton1.Enabled:=false; speedbutton3.Enabled:=false; listbox1.Visible:=false; if fileexists('net.ini') then begin assignfile(mytextfile,'net.ini'); reset(mytextfile); i:=0; try readln(mytextfile,homepage); combobox1.Text:=homepage; webbrowser1.Navigate(combobox1.Text); finally closefile(mytextfile); end; end; combobox1.Items.Add(combobox1.Text); end; …… …… ……