anchor.diff:  
   implementation
   
  -uses GetSystems, TBloky, TBlokNav, Logging, RCS, ownStrUtils,
  +uses GetSystems, TBloky, TBlokNav, Logging, RCS, ownStrUtils, Diagnostics,
       TJCDatabase, fMain, TCPServerOR, TBlokTrat, SprDb, THVDatabase,
       Trakce, THnaciVozidlo, TBlokTratUsek, BoosterDb, appEv, Souprava,
       stanicniHlaseniHelper, TechnologieJC, PTUtils, RegulatorTCP, TCPORsRef,
  
positive.code: begin
   if (Zaver = Self.Zaver) then Exit();
  
   if ((Integer(Self.UsekStav.Zaver) > 0) and ((Zaver = TZaver.no) or (Zaver = TZaver.ab))) then
     Self.NUZ := false;
  
   old := Self.Zaver;
   Self.UsekStav.Zaver      := Zaver;
   Self.UsekStav.SprPredict := -1;
  
   if ((old > TZaver.no) and (zaver = TZaver.no)) then
  
negative.code:    Self.CallChangeEvents(Self.EventsOnZaverReleaseOrAb);
  
   // staveci zavery se do panelu neposilaji, protoze jsou mi k nicemu
   if ((Self.Zaver <> TZaver.staveni) or (old <> TZaver.no) or (diag.showZaver)) then
     Self.Change();
  end;
  
  