anchor.diff:  
    Self.GlobalSettings.typ := _BLK_AC;
    Self.m_state := _def_ac_state;
  -end;//ctor
  + Self.m_state.lines := TStringList.Create();
  +end;
  +
  +destructor TBlkAC.Destroy();
  +begin
  + Self.m_state.lines.Free();
  + inherited;
  +end;
   
   ////////////////////////////////////////////////////////////////////////////////
   
  
positive.code:    Result := Result + 'PAUZA,';
   if (not Self.stopped) then
     Result := Result + 'STOP,';
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
negative.code:  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 = 'STAV?')  then Self.MenuSTAVClick(SenderPnl, SenderOR);
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  