anchor.diff:      max:Integer;
     end;
   
  -  zastaveni: TRREv;                             // zastavovoaci udalost
  +  zastaveni: TRREv;                             // zastavovaci udalost
     zpomaleni: record                             // zpomalovaci udalost
       enabled: boolean;                             // povolena zpomalovaci udalost?
       speed: Integer;                               // rychlost z km/h (40, 50, 60...)
  
positive.code:     scomEv:TBlkScomSprEvent;
      i:Integer;
  begin
   Usek := Self.UsekPred;
   if (Self.SComRel.SymbolType = 1) then Exit();          // pokud jsem posunove navestidlo, koncim funkci
   if ((Usek = nil) or ((Usek.GetGlobalSettings().typ <> _BLK_USEK) and (Usek.GetGlobalSettings().typ <> _BLK_TU))) then Exit();    // pokud pred navestidlem neni usek, koncim funkci
   if ((Usek as TBlkUsek).Souprava = -1) then Exit();     // pokud na useku prede mnou neni souprava, koncim funkci
   spr := Soupravy.soupravy[(Usek as TBlkUsek).Souprava];
   if (spr.front <> Usek) then Exit();                    // pokud souprava svym predkem neni na bloku pred navestidlem, koncim funkci
   if (Self.SComSettings.events.Count = 0) then Exit();
  
   // zjisteni aktualni udalosti podle typu a delky soupravy
   i := Self.CurrentEventIndex();
  
negative.code: 
   if (i <> Self.lastEvIndex) then
    begin
     // Z nejakeho duvodu reagujeme na novou udalost -> vypnout starou udalost
     if ((Self.lastEvIndex >= 0) and (Self.lastEvIndex < Self.SComSettings.events.Count)) then
      begin
       if (Self.SComSettings.events[Self.lastEvIndex].zastaveni.enabled) then
  