anchor.diff:  
     private
      mState: TBlkPrjTrackState;
  +   anulEnd: TTime;
   
       function mShouldBeClosed(): Boolean;
       function AllFree():boolean;
  
positive.code:         Self.state := tsRLLeftOutOccupied
        else
          Self.state := tsFree;
       end;
  
      // TODO: check anulace time overflow
    end;
  
    tsLRRightOutOccupied: begin
  
negative.code:     else if (Self.middle.state = TUsekStav.uvolneno) then
       begin
        if (Self.left.state = TUsekStav.obsazeno) then
         begin
          Self.anulEnd := Now + Self.anulTime;
          Self.state := tsRLOnlyLeftOccupied
         end else
          Self.state := tsFree;
       end;
    end;
  