anchor.diff:   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));
  + if (Self.IsSouprava()) then
  +  begin
  +   str := '';
  +   for spri in Self.Soupravs do
  +     str := str + Soupravy[spri].nazev + ',';
  +   ini_stat.WriteString(section, 'spr' , str);
  +  end;
   end;//procedure
   
   ////////////////////////////////////////////////////////////////////////////////
  
positive.code: end;//procedure
  
  procedure TBlkUsek.SaveStatus(ini_stat:TMemIniFile;const section:string);
  begin
   if (Self.UsekStav.Stit <> '') then
     ini_stat.WriteString(section, 'stit', Self.UsekStav.Stit);
  
negative.code: 
   Self.UsekStav.Stit         := ini_stat.ReadString(section, 'stit', '');
   Self.UsekStav.Vyl          := ini_stat.ReadString(section, 'vyl' , '');
  
   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
  