怎么使用ini文件进行一些设置的保存?

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginWith TINIFile.Create('a.ini') do//创建a.inibeginWriteBool('MySetting', 'CheckBox1_Checked', CheckBox1.Checked);{保存到MySetting下面的CheckBox1_Checked子键下,然后把Checkbox1的是否按下状态写进去}

WriteString('MySetting', 'Edit1_Text', Edit1.Text);//同上end;end;procedure TForm1.FormCreate(Sender: TObject);//读入a.ini文件中的设置beginWith TINIFile.Create('a.ini') do//打开已创建的a.inibeginCheckBox1.Checked := ReadBool('MySetting', 'CheckBox1_Checked', False);{同上面的写入一样,这里是读取ReadBool和WriteBool是两个BOOL值的写入方法.}