anchor.diff:  
   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
  
positive.code: 
      procedure Enable(); override;
      procedure Disable(); override;
      procedure SetStatus(new: TBlkPstStatus);
  
      procedure Update(); override;
  
negative.code: 
      procedure ActivationBarriers(var barriers: TList<TJCBarrier>);
      procedure Activate(senderPnl: TIdContext; senderOR: TObject);
      class function WarningBarrier(typ: TJCBarType): Boolean;
      class function BarrierToMessage(barrier: TJCBarrier): TUPOItem;
      procedure BarriersUPOOKCallback(Sender: TObject);
      procedure BarriersCSCallback(Sender: TIdContext; success: Boolean);
  
    public
  
  