anchor.diff:  
   procedure TBlkUsek.LoadData(ini_tech:TMemIniFile;const section:string;ini_rel,ini_stat:TMemIniFile);
   var str:TStrings;
  +    s:string;
   begin
    inherited LoadData(ini_tech, section, ini_rel, ini_stat);
   
  
positive.code:  if (Self.UsekStav.Vyl <> '') then
     ini_stat.WriteString(section, 'vyl' , Self.UsekStav.Vyl);
  
   if (Self.UsekStav.Spr > -1) then
     ini_stat.WriteString(section, 'spr' , Soupravy.GetSprNameByIndex(Self.UsekStav.Spr));
  end;//procedure
  
  ////////////////////////////////////////////////////////////////////////////////
  
negative.code: end;//procedure
  
  procedure TBlkUsek.SaveStatus(ini_stat:TMemIniFile;const section:string);
  var str:string;
      spri:Integer;
  begin
   if (Self.UsekStav.Stit <> '') then
     ini_stat.WriteString(section, 'stit', Self.UsekStav.Stit);
  