procedure TForm1.FormCreate(Sender: TObject);
begin try
NoteBook1.PageIndex :=0;
ComboBox1.ItemIndex :=0;
ComboBox2.ItemIndex :=0;
ComboBox3.ItemIndex :=0;

reg1:=TIniFile.Create(root+'wikibrowse.ini');
CheckBox1.Checked := reg1.ReadBool('system','sounds',false);
try HotKey1.HotKey := TextToShortCut(reg1.readString('system','hotkey','')); except end;
CheckBox2.Checked := reg1.ReadBool('system','play_existing_file',false);
CHeckBox3.Checked := reg1.ReadBool('system','log_file',false);
get_wiki_setups(ComboBox1.Items.Strings[0]);
Edit4.Text := reg1.ReadString('cache','images','C:\');
Edit5.Text := reg1.ReadString('cache','media','C:\');
Edit6.Text := reg1.ReadString('cache','docs','C:\');
Edit7.Text := reg1.ReadString('system','web_browser','');
CheckBox4.Checked := (trim(Edit7.Text)='');
Label20.Enabled := not CheckBox4.Checked;
Edit7.Enabled :=Label20.Enabled;
Button4.Enabled :=Label20.Enabled;
case reg1.ReadInteger('system','iacclevel',0) of
   $00000020: ComboBox2.ItemIndex :=1;
   $00000040: ComboBox2.ItemIndex :=0;
   $00000080: ComboBox2.ItemIndex :=2;
   $00000100: ComboBox2.ItemIndex :=3;
end;
case reg1.ReadInteger('system','wacclevel',0) of
   $00000020: ComboBox3.ItemIndex :=1;
   $00000040: ComboBox3.ItemIndex :=0;
   $00000080: ComboBox3.ItemIndex :=2;
   $00000100: ComboBox3.ItemIndex :=3;
end;
except end;End;