anchor.diff:  begin
     if (Self.note <> '') then
       Self.NoteUPO(SenderPnl, SenderOR, Self.UPONPstDone, nil)
  -  else
  +  else begin
  +    TPanelConnData(SenderPnl.data).UPO_ref := SenderOR;
       Self.UPONPstDone(SenderPnl);
  +  end;
   end;
   
   procedure TBlkPst.UPOPstDisDone(Sender: TObject);
  
positive.code: 
  procedure TBlkPst.UPONPstDone(Sender: TObject);
  begin
    Self.status := pstOff;
  end;
  
  procedure TBlkPst.MenuSTITClick(SenderPnl: TIdContext; SenderOR: TObject);
  
negative.code: 
  uses GetSystems, BlockDb, Graphics, Diagnostics, ownConvert, ownStrUtils,
    TJCDatabase, fMain, TCPServerPanel, TrainDb, THVDatabase, BlockTrack,
    RCSErrors, RCS, UPO, TCPAreasRef;
  
  constructor TBlkPst.Create(index: Integer);
  begin
  