procedure TForm1.FlatButton1Click(Sender: TObject);
var pevel: array[0..3] of string;
begin try
pevel[0]:='$00000040'; pevel[1]:='$00000020'; pevel[2]:='$00000080'; pevel[3]:='$00000100';
reg1.WriteBool('system','sounds',CheckBox1.Checked);
reg1.WriteBool('system','play_existing_file',CheckBox2.Checked);
reg1.WriteBool('system','log_file',CheckBox3.Checked);
reg1.WriteString('system','hotkey',ShortcutToText(HotKey1.HotKey));
reg1.WriteString('cache','images',Edit4.Text);
reg1.WriteString('cache','media',Edit5.Text);
reg1.WriteString('cache','docs',Edit6.Text);
reg1.WriteString('system','web_browser',Edit7.Text);
reg1.WriteString('system','iacclevel',pevel[ComboBox2.ItemIndex]);
reg1.WriteString('system','wacclevel',pevel[ComboBox3.ItemIndex]);
Close;
except end;End;