其中的一些代码： 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(mytextf