anchor.diff:  
    Self.UsekStav.Stit         := ini_stat.ReadString(section, 'stit', '');
    Self.UsekStav.Vyl          := ini_stat.ReadString(section, 'vyl' , '');
  - Self.UsekStav.Spr          := Soupravy.GetSprIndexByName(ini_stat.ReadString(section, 'spr' , ''));
   
    str := TStringList.Create();
  +
  + Self.UsekStav.soupravy.Clear();
  + ExtractStringsEx([','], [], ini_stat.ReadString(section, 'spr' , ''), str);
  + for s in str do
  +   Self.UsekStav.soupravy.Add(Soupravy.GetSprIndexByName(s));
   
    // houkaci udalosti
    try
  
positive.code: 
  procedure TBlkUsek.LoadData(ini_tech:TMemIniFile;const section:string;ini_rel,ini_stat:TMemIniFile);
  var str:TStrings;
  begin
   inherited LoadData(ini_tech, section, ini_rel, ini_stat);
  
  
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);
  