anchor.diff:  
   ////////////////////////////////////////////////////////////////////////////////
   
  -function TBlkAC.PtUsername():string;
  +function TBlkAC.PtUsername(): string;
   begin
    Result := IntToStr(Self.id);
   end;
  
positive.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  function TBlkAC.GetStopped():boolean;
  begin
   Result := (Self.m_state.state = TACState.stopped);
  end;
  
  function TBlkAC.GetRunning():boolean;
  begin
   Result := (Self.m_state.state = TACState.running);
  end;
  
  function TBlkAC.GetPaused():boolean;
  begin
   Result := (Self.m_state.state = TACState.paused);
  end;
  
  function TBlkAC.GetClientConnected():boolean;
  begin
   Result := (Self.m_state.client <> nil);
  end;
  
negative.code:     destructor Destroy(); override;
  
      // load/save data
      procedure LoadData(ini_tech: TMemIniFile; const section: string; ini_rel,ini_stat: TMemIniFile); override;
      procedure SaveData(ini_tech: TMemIniFile; const section: string); override;
  
      // enable or disable symbol on relief
      procedure Enable(); override;
  