anchor.diff:      str := str + '(' + IntToStr(Self.Data.POMtake[i].cv) + ',' + IntToStr(Self.Data.POMtake[i].data) + ')';
      ini.WriteString(addr, 'pom_take', str);
   
  -   // 4. radek: POM pri uvolneni
  +   // POM pri uvolneni
      str := '';
      for i := 0 to Self.Data.POMrelease.Count-1 do
       str := str + '(' + IntToStr(Self.Data.POMrelease[i].cv) + ',' + IntToStr(Self.Data.POMrelease[i].data) + ')';
      ini.WriteString(addr, 'pom_release', str);
  +
  +   // vyznam funkci
  +   str := '';
  +   for i := 0 to _HV_FUNC_MAX do
  +     str := str + Self.Data.funcVyznam[i] + ';';
  +   ini.WriteString(addr, 'func_vyznam', str);
   
    except
      ini.UpdateFile();
  
positive.code:        Self.Data.POMrelease.Add(pomCV);
        end;
     end;
   except
    on e:Exception do
     begin
  
negative.code:       end;//if data2.Count >= 2
      end;//for i
  
     // vyznamy funkci:
     str := ini.ReadString(section, 'func_vyznam', '');
     strs.Clear();
     ExtractStringsEx([';'], [], str, strs);
     for i := 0 to _HV_FUNC_MAX do
      begin
       if (i < strs.Count) then
         Self.Data.funcVyznam[i] := strs[i]
        else
         Self.Data.funcVyznam[i] := '';
      end;//for i
  
    except
     strs.Free();
     strs2.Free();
  