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: 
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  
  
negative.code: 
   Self.GlobalSettings.typ := _BLK_AC;
   Self.m_state := _def_ac_state;
   Self.m_state.lines := TStringList.Create();
  end;
  
  destructor TBlkAC.Destroy();
  begin
   Self.m_state.lines.Free();
   inherited;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  