anchor.diff:  
       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
  
positive.code: 
  uses GetSystems, BlockDb, Graphics, Diagnostics, ownConvert, ownStrUtils,
    TJCDatabase, fMain, TCPServerPanel, TrainDb, THVDatabase, BlockTrack,
    RCSErrors, RCS, UPO, TCPAreasRef, BlockSignal;
  
  constructor TBlkPst.Create(index: Integer);
  begin
  
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
  
  