anchor.diff:   if      (item = 'START')  then Self.MenuSTARTClick(SenderPnl, SenderOR)
    else if (item = 'STOP')   then Self.MenuSTOPClick(SenderPnl, SenderOR)
    else if (item = 'PAUZA')  then Self.MenuPAUZAClick(SenderPnl, SenderOR)
  - else if (item = 'POKRA') then Self.MenuPOKRACClick(SenderPnl, SenderOR);
  + else if (item = 'POKRA') then Self.MenuPOKRACClick(SenderPnl, SenderOR)
  + else if (item = 'STAV?')  then Self.MenuSTAVClick(SenderPnl, SenderOR);
   end;
   
   ////////////////////////////////////////////////////////////////////////////////
  
positive.code:    on E:Exception do
       ORTCPServer.BottomError(SenderPnl, E.Message, TOR(SenderOR).ShortName, 'AC');
   end;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
negative.code:     procedure MenuSTOPClick(SenderPnl:TIdContext; SenderOR:TObject);
      procedure MenuPAUZAClick(SenderPnl:TIdContext; SenderOR:TObject);
      procedure MenuPOKRACClick(SenderPnl:TIdContext; SenderOR:TObject);
      procedure MenuSTAVClick(SenderPnl:TIdContext; SenderOR:TObject);
  
      procedure PanelShowState(pnl: TIdContext; OblR: TOR);
  
    public
  
      constructor Create(index:Integer);
      destructor Destroy(); override;
  
      // load/save data
      procedure LoadData(ini_tech:TMemIniFile; const section:string; ini_rel,ini_stat:TMemIniFile); override;
  