anchor.diff:          Self.state := tsRLLeftOutOccupied
         else
           Self.state := tsFree;
  -     end;
  -
  -    // TODO: check anulace time overflow
  +     end else if (Now > Self.anulEnd) then
  +      Self.state := tsLRLeftOccupied;
     end;
   
     tsLRRightOutOccupied: begin
  
positive.code: 
    private
     mState: TBlkPrjTrackState;
  
      function mShouldBeClosed(): Boolean;
      function AllFree():boolean;
  
negative.code:         Self.state := tsLRRightOutOccupied
        else
          Self.state := tsFree;
       end else if (Now > Self.anulEnd) then
        Self.state := tsRLRightOccupied;
    end;
  
    tsRLOnlyLeftOccupied: begin
  