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