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: 
  procedure TBlkPst.UPONPstDone(Sender: TObject);
  begin
    PanelServer.ConfirmationSequence(TIDContext(Sender), Self.CSNPStDone,
      (TPanelConnData(TIDContext(Sender).data).UPO_ref as TArea), 'Nouzové zrušení obsluhy PSt',
      TBlocks.GetBlksList(Self), TArea.GetCSConditions(TArea.GetCSCondition(Self, 'Není základní poloha prvku PSt')));
  end;
  
  procedure TBlkPst.CSNPStDone(Sender: TIDContext; success: Boolean);
  begin
    if (success) then
      Self.status := pstOff;
  end;
  
  procedure TBlkPst.MenuSTITClick(SenderPnl: TIdContext; SenderOR: TObject);
  