anchor.diff:    Self.Change(true);
   end;
   
  +procedure TBlkPst.Reset();
  +begin
  +  Self.m_state.senderOR := nil;
  +  Self.m_state.senderPnl := nil;
  +end;
  +
   procedure TBlkPst.SetStatus(new: TBlkPstStatus);
   begin
     if (new = Self.m_state.status) then
  
positive.code: 
      if (track.occupied <> TTrackState.Free) then
        barriers.Add(JCBarrier(barTrackOccupied, track));
  
      if (track.IsTrain()) then
        barriers.Add(JCBarrier(barTrackTrain, track));
  
      if (track.Zaver <> TZaver.no) then
      begin
  
negative.code: 
  procedure TBlkPst.ActivationBarriers(var barriers: TList<TJCBarrier>);
  begin
    if (Self.note <> '') then
      barriers.Add(JCBarrier(barBlockNote, Self));
  
    // tracks
    for var trackId in Self.m_settings.tracks do
    begin
  