anchor.diff:  
   procedure TBlkPst.MenuPstEnClick(SenderPnl: TIdContext; SenderOR: TObject);
   begin
  -  Self.status := pstTakeReady;
  +  Self.Activate(SenderPnl, SenderOR);
   end;
   
   procedure TBlkPst.MenuPstDisClick(SenderPnl: TIdContext; SenderOR: TObject);
  
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:   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
  