****************要引用Inifiles单元*******************
myinifile:Tinifile;//声明
myinifile:=Tinifile.create(filename+'set.ini');//打开filename路径下的set.ini文件。
myinifile.ReadInteger('dach','ch',0);//读操作
myinifile.WriteInteger('nj','njint',3);//写操作
myinifile.Free;//释放