anchor.diff:    end;
   end;
   
  -procedure TBlkAC.SaveData(ini_tech:TMemIniFile;const section:string);
  +procedure TBlkAC.SaveData(ini_tech:TMemIniFile; const section:string);
   begin
    inherited SaveData(ini_tech, section);
  -end;
  -
  -procedure TBlkAC.SaveStatus(ini_stat:TMemIniFile;const section:string);
  + ini_tech.WriteString(section, 'accessToken', Self.m_settings.accessToken);
  +end;
  +
  +procedure TBlkAC.SaveStatus(ini_stat:TMemIniFile; const section:string);
   begin
    // TODO
   end;
  
positive.code: 
  type
  
   TBlkACStav = record
  
   end;
  
   // zamek ma zaver, pokud jakakoliv vyhybka, kterou obsluhuje, ma zaver
  
   TBlkAC = class(TBlk)
    const
     //defaultni stav
     _def_ac_stav:TBlkACStav = (
  
     );
  
    private
     ACStav:TBlkACStav;
  
      procedure MenuSTARTClick(SenderPnl:TIdContext; SenderOR:TObject);
      procedure MenuSTOPClick(SenderPnl:TIdContext; SenderOR:TObject);
  
negative.code:  inherited Create(index);
  
   Self.GlobalSettings.typ := _BLK_AC;
   Self.m_state := _def_ac_state;
  end;//ctor
  
  destructor TBlkAC.Destroy();
  