constructor TcxIniFileWriter.Create(const AStorageName: string; AStream: TStream; AReCreate: Boolean = True);
begin
  inherited Create(AStorageName, AStream, AReCreate);

  FIniFile := TMemIniFile.Create(AStorageName);
  {$IFDEF DELPHI12}FIniFile.Encoding := TEncoding.UTF8;{$ENDIF}
  if FReCreate then
    FIniFile.Clear;
  FIniFile.CaseSensitive := False;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  Ini: TMeminifile; //необходимо создать объект, чтоб потом с ним работать
  Off_Login, sss : Integer;
begin
  Ini:=TMeminifile.Create(extractfilepath(Application.Exename)+'Settings.ini', TEncoding.Unicode);
  try
    Ini.WriteInteger('Schedule', 'TimePeriod1', 25);
    Ini.WriteInteger('Schedule', 'TimePeriod2', 25);
    Ini.WriteInteger('Schedule', 'TimePeriod3', 25);
    Ini.WriteInteger('Schedule', 'TimePeriod4', 25);
  finally
    Ini.UpdateFile;
    Ini.Free;
  end;

  m1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Settings.ini');
end;