anchor.diff:          Self.state := tsLRRightOutOccupied
         else
           Self.state := tsFree;
  -     end;
  -
  -    // TODO: check anulace time overflow
  +     end else if (Now > Self.anulEnd) then
  +      Self.state := tsRLRightOccupied;
     end;
   
     tsRLOnlyLeftOccupied: begin
  
positive.code:     else if (Self.middle.state = TUsekStav.uvolneno) then
       begin
        if (Self.left.state = TUsekStav.obsazeno) then
          Self.state := tsRLOnlyLeftOccupied
        else
          Self.state := tsFree;
       end;
    end;
  
negative.code:     else if (Self.middle.state = TUsekStav.uvolneno) then
       begin
        if (Self.right.state = TUsekStav.obsazeno) then
         begin
          Self.anulEnd := Now + Self.anulTime;
          Self.state := tsLROnlyRightOccupied;
         end else
          Self.state := tsFree;
       end;
    end;
  