anchor.diff:  var read,read2:string;
    begin
     F_Splash.AddStav('Načítám konfiguraci...');
  +
     read := inidata.ReadString(_INIDATA_PATHS_DATA_SECTION, 'konfigurace', 'data\konfigurace.ini');
     try
       GlobalConfig.LoadCfgFromFile(read);
  
positive.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  procedure TGlobalConfig.LoadCfgFromFile(IniLoad:string);
  var str:string;
      ini:TMemIniFile;
   begin
    writelog('Načítám konfiguraci - '+IniLoad, WR_DATA);
    F_Options.E_dataload.Text := IniLoad;
    ini := TMemIniFile.Create(IniLoad, TEncoding.UTF8);
    try
      //nacitani dat o programu - left, top...
      case ini.ReadInteger('Application','WState',0) of
       0:begin
          F_Main.WindowState := wsMaximized;
         end;
       1:begin
          F_Main.Left   := ini.ReadInteger('Application', 'Left',200);
          F_Main.Top    := ini.ReadInteger('Application', 'Top',200);
          F_Main.Height := ini.ReadInteger('Application', 'Heigth',500);
          F_Main.Width  := ini.ReadInteger('Application', 'Width',1125);
          F_Main.WindowState := wsNormal;
         end;
      end;//case
  
      //nactitani dalsich dat
      F_Options.LB_Timer.ItemIndex := ini.ReadInteger('SystemCfg', 'TimerInterval', 4);
      F_Options.LB_TimerClick(Self);
      F_Options.CHB_povolit_spusteni.Checked := ini.ReadBool('SystemCfg', 'AutSpusteni', false);
      if (F_Options.CHB_povolit_spusteni.Checked) then F_Main.KomunikacePocitani := 1;
      GlobalConfig.scale := ini.ReadInteger('SystemCfg', 'scale', 120);
  
      //nacitani modeloveho casu
      ModCas.LoadData(ini);
  
      SS.LoadData(ini);
  
      ORTCPServer.port := ini.ReadInteger('PanelServer', 'port', _PANEL_DEFAULT_PORT);
  
      try
        PtServer.port := ini.ReadInteger('PTServer', 'port', _PT_DEFAULT_PORT);
      except
        on E:EPTActive do
          writeLog('PT ERR: '+E.Message, WR_PT);
      end;
  
      PtServer.compact := ini.ReadBool('PTServer', 'compact', _PT_COMPACT_RESPONSE);
  
      // autosave
  
      GlobalConfig.autosave := ini.ReadBool('autosave', 'enabled', true);
      str := ini.ReadString('autosave', 'period', '00:30');
      GlobalConfig.autosave_period := EncodeTime(0, StrToIntDef(LeftStr(str, 2), 1), StrToIntDef(Copy(str, 4, 2), 0), 0);
      if (GlobalConfig.autosave) then
        Config.autosave_next := Now + GlobalConfig.autosave_period;
  
      // nacteni vyznamu funkci
      FuncsFyznam.ParseWholeList(ini.ReadString('funcsVyznam', 'funcsVyznam', ''));
      F_Main.CHB_RCS_Show_Only_Active.Checked := ini.ReadBool('RCS', 'ShowOnlyActive', false);
  
      // nacteni UDP discovery
      UDPdisc := TUDPDiscover.Create(_DISC_DEFAULT_PORT,
           ini.ReadString('PanelServer', 'nazev', ''),
           ini.ReadString('PanelServer', 'popis', ''));
  
negative.code:   writelog('FormData úspěšně načtena', WR_DATA);
   end;
  
  procedure TFormData.SaveFormData(filename:String);
  var i, j:Integer;
      ini:TMemIniFile;
   begin
    DeleteFile(filename);
    ini := TMemIniFile.Create(filename, TEncoding.UTF8);
  
    try
      for i := 0 to F_Options.ComponentCount-1 do
  