免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

uses System.IoUtils

procedure TForm1.Button1Click(Sender: TObject);
var
IniFile:TIniFile;
Count:Integer;
begin

try
IniFile:=TIniFile.Create(TPath.GetHomePath+'\test.ini');
Count:=IniFile.ReadInteger('Config','Count',0);
Count:=Count+1;
IniFile.WriteString('sec', 'TEL',' ');
IniFile.WriteInteger('Config','Count',Count);
finally
FreeAndNil(IniFile);
end;
end;